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The author, Melbourne-bom Tim Hartnell, 
first met Dick Smith in London in the late 
seventies while Dick was on a trip to buy the 
helicopter which he used for his record- 
breaking world solo flight. 





The two kept in touch, and after Tim’s return from the UK at the end of 1982, Dick called 
him one day and asked him to come up to Sydney to see a new product which Dick Smith 
Electronics had developed. It was the VZ200, the forerunner of the VZ300. Tim was 
impressed with the machine and its potential, and rang the editor of Australian Personal 
Computer about it. The editor decided the launch of the VZ200 was sufficiently important 
to change, at the last minute, the proposed cover of the next issue of the magazine, and 
replace it with a photograph of the VZ200. Tim's review of the computer was the lead story 
in that issue. 


Tim and a couple of authors who had worked with him previously on books published by 
Tim's company, Interface Publications, then wrote three books on the VZ200, which were 
distributed exclusively through Dick Smith outlets. The feedback on those books was 
extremely positive, so it was decided that the VZ300 also deserved dedicated books, such as 
the one you are reading now. 


Tim Hartnell originally left Australia in the middle of 1977 for the UK for what was planned 
to be a six month's working holiday. He finally stayed for nearly six years, and while in 
London founded his company, Interface Publications, which now has offices in London, 
Melboume and New York. Tim has written fifty or so books (he says he doesn’t know the 
exact number), predominately on computers and related subjects, and they have been 
translated into eleven languages. 


Although he now makes his home in Melbourne, he travels back to the USA and the UK two 
or three limes each year to keep in touch with developments in the computer field. “It gets 
harder to leave each time,” he said recently. “Australia is really the only country I ever want 
1o live in. And with developments like the VZ300, it makes sense professionally, as well as 
personally.” 
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Once upon a time, before the VZ300, it was not easy to write and play 
games with computers. Back in the dim, dark past, it could cost you $80 to 
$100 an hour just to rent access to a time-shared mainframe via a 
terminal. And the only output you had was on the printout of a noisy, 
hard-to-read teleprinter. Think what those restrictions would have done to 
your current pattern of spending hours lovingly debugging, and improving, 
your latest masterpiece. 

We, fortunately, do not have to suffer such medieval conditions. The 
luxury of having a VZ300 of your own, driving a TV screen, with 
unrestricted access to the machine, allows you to work for as long as you 
like creating games and other programs. 

In this book, you'll find a collection of my favorite VZ games. I hope 
some of them will soon be up and running on your computer, and are 
stored with your own favorite programs. They’re sure to provide you with 
a lot of fun in the weeks ahead. I’ve tried to produce a set of games which 
will provide varied entertainment, to cater to your game interests, 
whatever they may be. 

I’ve deliberately written the book so that it is “open-ended”. That is, 
in contrast to many other collections of games programs on the market, 
I’ve assumed you'll want to adapt and improve the programs once you get 
them up and running on your Dick Smith computer. Therefore, with many 
of them I’ve included program breakdowns, some line by line, so you know 
what each section of code is doing. As well, the introduction to each 
section discusses a bit about the philosophy of writing games of that type, 
has a word or two to say about the basic algorithms which you can use to 
create games of that sort yourself, and generally aims to give you a solid 
background against which you can expand and develop your own game- 
writing skills. 

To maximize the length of program you can get into your VZ300 
(and to keep program entry'time down to a minimum) few of the programs 
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include instructions. These are in the text. However, if you have the 
inclination you can easily add a “Do you want instructions” line as part of 
the initialization subroutine, and then include a shortened form of the 
instructions from the text in your program. 

I’ve followed structured programming techniques in all programs 
which lent themselves to that approach. You may well find, as I did when I 
actually decided to put all the advice I’d read in books and articles into 
action, that working in a “top down” manner made wniting and modifying 
programs a much simpler, and more precise, activity than it had been 
before. As a bonus, it is much easier to get a program up and running when 
it's written this way. Most importantly, you can get to the fun parts 
—actually running the thing — much more quickly. 

I think we should get to the fun parts immediately, so turn on your 
VZ300. 

Good game-playing! 


Tim Hartnell, 
Melbourne, 1986 
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Down into the depths of darkness you go. Armed with only your com- 
puter, and your keen mind, you have decided to take on the forces of 
evil. 

You may be on a desert island, inside a haunted house, within a 
dungeon deep within the bowels of the earth, or trapped in a cave 
system on a planet “somewhere in a galaxy far away.” 

Adventure games take place in all these scenarios, and a thou- 


sand more beside. Come with us now, as we discover the excitement 
of the worlds of ADVENTURE. 


The word adventure is used to describe the class of computer 
games in which the player moves through an alternative reality. In 
this “otherworld” there are monsters to be fought, treasures to be dis- 
covered, maps to be made, and puzzles to be solved. 

Many people feel that adventure games are the most exciting 
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games which can be played with a computer. If you are interested in 
role-playing games like TSR Hobbies’ Dungeons and Dragons (the 
game and name are registered trademarks of TSR), then you re cer- 
tain to enjoy playing adventure. 

One eae. of true adventure games is that the reality they 
model is consistent. That is, the world created within the adventure 
program is solid, and—apart from any events specific to that game, 
such as an earthquake, or a magic spell—the parts of the world do not 
shift in a random fashion. If you walk past a “gnarled and twisted oak, 
with the initials of your best friend carved in the trunk” when going 
down a certain woodland park, the same oak should still be there 
when you return. In a properly constructed adventure the rivers stay 
in place, the dungeon walls do not mysteriously move and shift every 
time you turn your back, and objects you put down in one cave within 
an underground labyrinth do not suddenly appear of their own voli- 
tion a hundred caves away (unless, of course, they’ve been blessed 
with some form of magical auto-transportation). 

Map-making is one of the true adventure-player’s skills and de- 
lights. Working your way through an imaginary (but self-consistent) 
environment, tackling monsters and collecting treasures, solving 
puzzles as you go up and down staircases and chutes, exploring side 
tunnels, getting lost in self-circling mazes, and so on, is only fascinat- 
ing if the world you are exploring is mappable. You should, for exam- 
ple, be able to expect both ends of a tunnel to always emerge in the 
same spots, so when you come across one entrance to that tunnel later 
on in a game from a different position, you will have a new, useful 
clue to further flesh out your map of the environment. 

Role-playing is part of life. There are sure to be many situations 
in your everyday activities when you, to some extent, are forced to 
adopt a role. Most jobs, unfortunately, expect you to behave as if the 
needs and goals of the company were your own needs and goals, that 
the enthusiasm you project each day to customers and fellow-workers 
were your own, inner enthusiasms, and so on. You may well find that, 
in new situations, you have learnt to mask your lack of ease by acting 
confident, and at ease, discovering that—if you do it skillfully—peo- 
ple take the projected role as if it were your true self. 

The role-playing which takes place within the imaginary environ- 
ments of an adventure game is far more interesting, and is generally 
far removed from the self of your everyday life. When you think 
about it, even playing games like “Cops and Robbers” is an exercise 
in role-playing. 

So we've all had experience in role-playing, even if some of it 
was not as much fun as taking part in long-range campaigns to rescue 


a handsome prince trapped within a tower. The adventures given in 
this book are by no means as elaborate as some of the ones offered for 
sale for your computer, but they are more carefully and consistently 
organized than many I have seen, and—as a bonus—give you frame- 
works within which you can construct adventure programs of your 
own, 

Role-playing games which involve other people, such as TSR’s 
Dungeons and Dragons which I mentioned earlier, generally have a 
great deal of flexibility in development as a game proceeds. Under the 
control of a good Dungeon-master, a role-playing game can develop 
and evolve in directions which he or she had not even imagined when 
setting up the initial scenario. Unfortunately, computer role-playing 
games cannot be so flexible. In many ways when playing adventure 
with a computer, you are trying to solve a puzzle, or series of them, 
which the programmer has created. The computer can be used to help 
set up the initial scenario and determine where objects will be located, 
and perhaps where a particular stairwell will lead, but the overall 
shape of the environment is fixed by the programmer when the game 
is written. 

You can see this in action, for example, in our program 
STRONGHOLD OF THE DWARVEN LORDS, where you have to 
work your way through a maze to discover where the Dwarven trea- 
sure is stowed. The computer actually hides the treasure, and modi- 
fies the ‘3-D maze’ to some extent, but that is all. Of course, the 
computer is also used to produce the feedback to the player as the 
game is underway, and its role there is very valuable. 

Once upon a time, war campaigns were reenacted on table tops. 
Napoleonic battles were fought and won on large sheets of card 
marked with rivers and woods, as players reenacted major engage- 
ments within wars, or created their own. Wargamers found the plea- 
sure of the games they played could be increased if attention were 
paid as much (if not more) to the individuals they were fighting with, 
rather than just with squads of soldiers. This attention to individual 
identity lead directly into the role-playing games we have today, as 
gamers discovered how rewarding it was to take on the role of a par- 
ticular leader. 

Our Dungeons and Dragons developed directly from the war 
games where players took on the identities of individuals within bat- 
tles. Two gamers, Dave Arnson and E. Gary Gygax, decided to codify 
an entirely separate reality, which they initially gave to the world in 
1974 as a boxed set of three booklets under the title Dungeons and 
Dragons. The game became an enormous success, and now hundreds 
of thousands of people spend a significant portion of their leisure 
plunging into the depths of the earth, as clerics, trolls, magicians, and 


sorcerers, exploring, fighting, conquering—and occasionally dying— 
as they go. 

The original D & D idea soon spawned a host of other games, 
such as Runequest (Chaosium Ltd, Albany, California), Bushido and 
Chivalry & Sorcery (Fantasy Games Unlimited, Roslyn, New York), 
Tunnels & Trolls (Flying Buffalo, Inc., Scottsdale, Arizona), Traveller 
(Game Designers’ Workshop, Bloomington, Illinois) and Heroes of 
Olympus (Task Force Games, Amarillo, Texas). 

Will Crowther and Don Woods entered computer history in 1976 
by putting the world’s first role-playing game—just called ADVEN- 
TURE—onto a mainframe computer at Stanford University. (The 
program was actually written by Crowther, and elaborated by Woods, 
although today both men are generally credited with developing the 
program.) Although the game quickly became a cult-pursuit all over 
America, the floodgates to computer adventure-gaming did not open 
until microcomputers put machine-power—and computer time— into 
the hands of millions. Cheaper memory enabled extremely elaborate 
adventures to be created, and so now the computer adventure gamer 
is extremely well served. 

Crowther and Woods perhaps created better than they knew. 
Even today, despite the multitude of programs available, the original 
ADVENTURE is still going strong. At least five companies at present 
are selling versions of the original ADVENTURE for the Apple alone. 

This original program was written in Fortran, and when it was 
added to a free software-exchange library (Decus) organized by the 
Digital Equipment Computer Users’ Society (most of whom used 
Dec’s PDP-11 systems), it soon became the most-used program in the 
library. Two years later, another adventure program, DUNGEON, 
was added to Decus. This program, which took the ADVENTURE 
idea much further than Crowther’s program, was written by Tim An- 
derson, Marc Blank, Bruce Daniels, and Dave Lebling, all of the Pro- 
gramming Technology Division of the MIT Laboratory for Computer 
Science. 

One of the leading companies in the world producing adventure 
programs is Adventure International, founded by Scott Adams. His 
company has some of the most imaginative displays at computer 
shows of anyone in the games software field, and it is good to know his 
programs are as exciting as his show displays. Make sure you experi- 
ence the pleasure of playing a Scott Adams adventure program in due 
course, and you'll see how far the genre has been extended. 

I met Scott in Atlanta one day at a computer show and found him 
friendly, quiet, and reserved. Somehow, I’d expected him to be like a 
warlock from one of his dungeons, or a dragon from one of the cave 


systems. However, some behavior was more in keeping with my ex- 
pectations. It was Halloween, and Scott and his crew were all dressed 
to the nines as characters out of some of the programs. The same 
approach to life which had him tell his staff to come to work in fancy 
dress permeates his programs. Start with the programs here, which 
are much simpler to solve than programs such as Scott’s, and then 
graduate to the commercial programs. Perhaps his program Adven- 
tureland would be a good place to begin, before you move on to some 
of his other games, and on to those produced by other companies. 

Avalon Hill’s program Empire of the Over-Mind is another of the 
classics of the field, and this—as well as Sentient Software’s Cyborg 
deserve inspection. The list could go on and on, and certainly new 
titles have been added to the programs now available, so your com- 
puter magazines and/or your local gamer and computer clubs would 
be a good place to find out just what else is around for you and your 
computer. 


I guess it’s time now to introduce you to the adventure programs 
in this book. If you’d like to know more about the field, to help you 
write your own programs, there is a vast body of literature which is of 
interest. It includes: 


“Putting Adventure in Adventure Games,” article in Creative 
Computing, August 1981, by Robert Plamondon. 

“Graphic Adventures on the Atari,” article in Creative Comput- 
ing, August 1982, by John Anderson. 

“Fantasy Games” (parts one and two), articles in Creative Com- 
puting, issues of March 1981 (part one) and May 1981 (part two) by 
David Lubar. 


“Adventure Writing,” this is an immensely valuable 16-page 
booklet, distributed by Aardvark-80, 2352 S. Commerce, Walled 
Lake, MI 48088 [(313) 669-3110] for around $5.00. It explains the 
whole background of adventure game writing, and includes a com- 
plete adventure program, Deathship. If you read nothing else in the 
field, you should get hold of this booklet if you really want to discover 
how to write adventure games. 

Fantasy Role-Playing Games, by J. Eric Holmes (Hippocrene 
Books, Inc., New York, 1981). 

What Is Dungeons and Dragons?, by John Butterfield, Philip 
Parker, and David Honigmann (Penguin Books, New York, 1982). 

Dicing with Dragons: An Introduction to Role-Playing Games, by 
Ian Livingstone (Routledge & Kegan Paul, London, Melbourne, and 
Henley). 
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| |STRONGHOLD OF 
THE DWARVEN 
LORDS 


Deep beneath the earth you go, far into the Dwarven Heartland. 
Danger is on every side as you descend, but your greed draws you on. 
Searching through the dusty stacks of uncatalogued manuscripts in 
room 546B of the British Museum, you came across a faded, and 
almost illegible map to a Dwarven hoard of gold, and since that day, 
you have been obsessed with the idea of finding it. 

As you go down into the labyrinth, you realize that the Dwarven 
Lords, who secreted the gold here 7389 years ago, have long since 
become extinct, so the main danger you face is from the layout of the 
cavern system itself, rather than from Guards of the Stronghold. 
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In STRONGHOLD OF THE DWARVEN LORDS you are in a 
cavern which holds the gold. Each time you play this game, the gold 
can be in one of three places. The only information you get as to your 
progress is information provided by the Dwarven Source Beam which 
you found as you made your way into the cave system. This gives you 
feedback after each move as to the location of the gold, but you need 
to learn how to interpret the information it gives you before you'll be 
able to make much use of it. 

The other information you get is in the form of a straight state- 
ment regarding the directions you can move from your present posi- 
tion. After each move (“step”), you'll be given a screen display like 
the following: 


STEP NUMBER 49 


NORTH: WALL 
SOUTH: OPEN 
EAST: WALL 
WEST: OPEN 


THS DWARVEN SOURCE BEAM READS 10 


Then you'll be asked to enter the direction you want to move, as 
follows: 


WHICH DIRECTION DO YOU WANT 
TO MOVE? 


N - NORTE, S - SOUTH 
E - EAST, W - WEST, H — HELP 


bite will not, as you probably realize, be allowed to walk through 
walls. 





The aim of the game, needless to say, is to reach the Dwarven 
riches as quickly as possible. To aid you, there is a map of the cavern 
system from above, which you can call up from time to time. The map 
looks like this (with the walls shown as # symbols, and you shown 


as *): 


NORTH 

HFEF PHP PEE TE 
 ###eetee #o8 
#? #80? # 
fe #FFtt FHF PE 
## #F FH? #E# 
# # ee FFF 
HEFT R FF # 
fee eeeE FF ¢ FB 


| ial i ### 
Oo F#FTt? i 
?# #2? FEF HF 


#eeF FF FE FFT EF 
eee E FH FEED 


# He # 
CHFPPP PPE PPG ES 
SOUTH 


There are two catches to calling up a map of this type. First, 
although your position is shown, the location of the gold is not. Sec- 
ond, each time you enter “H” to get a look at the map, you'll be 
penalized 15 steps. Therefore, it is in your interests to use the Help 
option as few times as possible. 

The output of the program, as it is given in terms of the direc- 
tions you can take from your present position, could be modified to 
produce a “3-D maze” output. You know, from move to move, which 
direction you’re facing, and the computer knows which directions 
from that position represent possible moves. You would need to add a 
subroutine which drew a picture of the situation immediately in front 
of you, choosing from a bank of pictures (one with the area straight in 
front of you clear but with the walls solid on either side of you, an- 
other with entrances to the right and to the left but with the path 
straight ahead blocked off, and so on) to produce a continuous picture 
of the scene ahead. This can be most effective, and may well be worth 
implementing on your system. 
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Now, here is the listing of STRONGHOLD OF THE DWARVEN 
LORDS so you can start trekking for gold: 


10 REA STRONGHOLD OF THE DWARVEN LORDS 
20 GOSUB 640 

30 GOSUB 480 

AQ) REM SEUReeseeee erase ees ess 

50 M=N+i: IF W150 THEN GOTO 960 

60 CLS:PRINT: PRINT 

70 PRIXT "STEP NUMBER"N 

80 PRINT 

90 PRINT"NORTH: °3 

100 IF A(D+1,E)=S THEN PRINT"OPEN® 

110 IF A(D+1,E)=X THEN PRINT*WALL” 

120 PRINT "SOUTH: °s 

130 IF A(D-1,€)=S THEN PRINT" OPEN? 

140 IF A(D-1,€)=X THEN PRINT*WALL’ 

150 PRINT "EAST: °3 

160 IF A(D,E+i)=S THEN PRINT*OPEN® 

170 IF ACD, E+h)=X THEN PRINT"WALL” 

180 PRINT "WEST: "3 

190 IF A(D,E-1)=S THEN PRINT*OPEN 

200 IF A(D,E-L)=X THEN PRINT"WALL 

210 PRINT 

220 PRINT"THE DWARVEN SOURCE BEAM READS”: 
230 PRINT 1008ABS(Z2-D)+108ABS(Y-E) 

240 REM ESUCSSERT Eee as ease es 

290 PRINT 

260 PRINT’WHICH DIRECTION 00 YOU WANT" 
270 PRINT"TO MOVE?” 

280 PRINT: PRINT“N-NORTH, S-SOUTH" 

290 PRINT“E-EAST, W-WEST, H-HELP® 

295 LS=INKEYS 

500 AS=INKEYS: IF AS="S*ORAS="N*ORAS="E"ORAS="W"ORAS=“H* THEN 310 
305 60T0 300 

310 IF AS="N° AND A(D+1,E)=X THEN 300 
320 IF Ag="S° AND A(D-1,£)=% THEN 300 
330 IF AS="E" AND A(D,E+1)=X THEN 300 
340 IF AS="W" AND AID, E-1)=X THEN 300 
350 IF A$="K* THEN GOSUB 480 

360 IF A$="N" THEN D=D+l 

370 IF A$="S"* THEN D=D-1 

380 IF A$="E" THEN E=E+] 


390 IF AS="W" THEN E=E-1 
400 IF 2=D AND Y=E THEN 430 

410 60TO 50 

420 REN suseesagagagageesssgeys 

430 PRINT:PRINT*YOU FOUND THE DWARVEN RICHES" 
440 PRINT®IN JUST*N*STEPS!* 

450 GOSUB 500 

460 INPUT "ANOTHER GAME(Y/N)*sNSsIF LEFT6(NS,1)="N* THEN END 
465 IF LEFTS(N$,1)=*¥" THEN RUN ELSE 440 
470 REN teeeesagegsessggegagtes 

480 REM HELP 

490 CLS 

5010 PRINT 

510 PRINT*NORTH" 

520 FOR B=15 TO 1 STEP -I 

530 FOR C=1 TO 15 

540 IF A(B,C)=X THEN PRINT"@*s 

550 IF B=D AND C=E THEN PRINTS": :G0TO 570 
560 IF A(B,C)=S THEN PRINT" *; 

570 NEXT CzPRINT:NEXT B 

580 PRINT*SOUTH 

590 M=N+15 

600 FOR J=1 TO 2000:NEXT J 

610 CLS:A(D,E)=5 

620 RETURN 

630 REM SEesegeeesgcasssaeges 

640 CLS 

670 CLS 

680 DIM A(15, 15) 

690 BERND(3) 

700 1=14:Y=14 

710 IF B=2 THEN Y=2 

720 IF B=3 THEN Z=2 

730 X=1:S=2 

740 FOR B=1 TO 15:FOR C=1 10 15 

750 A(B,C)=X%:1F RND(10))8 THEN A(B,C)=S 
760 IF (2 OR C14 OR BC2 OR B)14 THEN ACB, C)=¥ 
770 NEXT C,B 

780 D=2:€=2 

790 FOR F=1 10 68 

800 READ B,C 

810 A(B,C)=S 

820 NEXT F 
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830 M=-15 
B40 RETURN 
B50 REN Hsegesecggsgenecasesess 
BLO DATA 2,2, 2) 3,254 2y iy 2y 5) 2y 
870 DATA 3,7,4,7)5,7,5,4 
800 DATA 7,3,7,4,7,5, 7,6 
890 DATA 9,9, 1 7,1 


7 
905 »4,5,5,6,5 
’ 9747,7,8,7,9,9,8 
0,8, 10, 7, 10,6, 10,5, 10, 4,8, 8 
900 DATA 10,3, 11,3, 12,3, 13,3, 14,3, 14,2, 7)! 
910 DATA 6,10,5,10,4,10,3, 10,2)11,2)1 
920 DATA 2,13, 2, 14,6, 11,6, 12,6, 13,6, 14, 75! 

13,9, 14, 10 
12,9, ! 
4 


] 
; Sy 
10, 
12 


7 
17,9 
8,10 
J 0 

4,1 2 

6 2 


°) 
7 
0 
l 
2 
6 


930 DATA 14, 12,8, 12,8, 14,9, 12,9) 13,9, 14, 10, 12 
940 DATA 11,9, 11,10, 11,11, 11, 12, 12,9 13,9, 13, 10 
950 DATA 13, 11,13, 12, 13,13, 13, 14,14) 1 
960 SOUND 8,4:SOUND 6,4:SOUND 4,8:FOR J=1 TO 1000:NEXT J 

970 PRINT: PRINT: PRINT "AFTER*M®STEPS, YOU HAVEN’T BEEN® 

980 PRINT "ABLE TO FIND THE DWARVEN":PRINTTAB(10): "TREASURE! ! 
990 PRINT "SHANE ON YOU... 

1000 GOSUB SO0:FOR J=1 TO 2000:NEXT:END 


, cae. 1S) an i nets 


¢ 
i 
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| | SHADOW THIEVES 


Next we have an adventure program which creates its own, stable 
map. That is, the map does not change within a game, but is totally 
different from game to game. The game takes place underground, in a 
maze of 20 caverns connected by tunnels. 

Although the number of possible combinations is not infinite, it is 
so huge (approaching the number of atoms in the universe) you would 
be unlikely to ever strike the same cavern system in your lifetime. 
However, the lack of true randomness in your random number gener- 
ator diminishes the total number of caverns you may visit, although 
you are unlikely to stumble across the same one more than once. 





CAVERN OF THE SHADOW THIEVES takes place in a very 
odd environment. You are within the maze of 20 caverns, trying to 
get to cavern number 20. Each cavern has four, and oniy four, tun- 
nels leading from it to other caverns. Some of the tunnels are one- 
way, while others allow you to travel back and forth. 
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Several of the tunnels will contain rare treasure, such as spar- 
kling amulets and platinum shields. You can carry up to four items at 
a time. Other caverns are the homes of unusual inhabitants, such as 
gruesome gnomes and zany zombies. Each inhabitant will demand a 
toll of a particular item. If you are carrying the item, the inhabitant 
takes it from you and allows you to pass. The inhabitant also disap- 
pears after being bribed, dropping the bribe, so you can revisit that 
cavern later and pick up the object again if you like. 

You should make a map as you work through the cavern system. 
This way, you'll know for example that cavern number five contains a 
crazy centipede who wants a magic scroll, so that you can travel 
safely through cavern five as soon as you manage to pick up a suitable 
scroll. The interconnections between the caverns, as I said, do not 
change within a particular game so you can build your map with some 
confidence. Note that certain caves contain magic transportation spells 
which will move you at random within the cavern system. 

The only goal of this game is to get to cavern number twenty, 
and you'll find the output from the program will assist you in this task, 
reporting your position and possessions constantly: 


PLEASE STAND BY AS I CONSTRUCT THE CAVE... 
x 
x 

x 

x 


DOCG GOIOOIIOK KOKI ROK OK KACKOK OK 
TIME REMAINING: 49 

YOU ARE IN CAVERN 1 

TUNNELS LEAD TO 4 , 5 , 7 AND 2 


WHERE DO YOU WANT TO GO? 4 
MOK KKK KOK KKK KKK KK KKK KKK KK KKK 


TIME REMAINING: 48 


YOU ARE IN CAVERN 4 
YOU HAVE. CORI FROM CAVERN 1 


TUNNELS LEAD TQ 6 , 8 , 3 AND 1 


WHERI DO YOU WANT TO GO? 8 
KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KK 


TIME REMAINING: 47 


YOU ARE IN CAVERN 8 
YOU HAVE COME FROM CAVERN 4 


THE CAVERN CONTAINS A COFPFER HEADBAND 


DO YOU WANT IT ¢Y OR NN)? 
OK KOKO XOK OOK KOK KOR OK KOK KK KK KKK KK KK 
TIME REMAINING: 464 
YOU ARE IN CAVERN 8 
YOU HAVE CORE FROM CAVERN 4. 
YOU ARE CARRYING: 
1 = COFPRER HEADBAND 


THERE IS @ TERRIBLE TOAD HERE, WHO 
WANTS A FLATINUM SHIELD TO LET YOU FASS 


YOU MUST RETURN TO 4 
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YOU HAVE COME FROM CAVERN 18 
YOU ARE CARRYING: 


1 —- COPFER HEADBAND 
2 -—- SPARKLING AMULET 
3 —- PLATINUM SHIELD 


THE CAVERN CONTAINS A MAGIC SCROLL 


DO YOU WANT IT (Y OR N)*? 
FORO OGIO IO OOK IO IK IGIOK Kx 


TIME REMAINING: 30 
YOU ARE IN CAVERN 1% 


YOU HAVE COME FROM CAVERN 18 
YOU ARE CARRYING: 


1 - COPFER HEADBAND 
<2 — SPARKLING AMULET 
2 — FLATINUM SHIELD 
4 - MAGIC SCROLL 


THERE JS A WEIRD WEREWOLF HERE, WHO 
WANTS A SFUNETRUM COIN TO LET YOU FASS 


YOU MUST RETURN TO 18 
OK KOK AK KKK KKK KKK KKK KK AK KK KKK KKK 


TIME REMAINING: 2 


YOU ARE IN CAVERN 18 

YOU HAVE COME FROM CAVERN 15 
YOU ARE CARRYING: 

COPPER HEADBAND 

* SFARELING AMULET 
PLATINUM SHIEID 

MAGIC SCROLL 


hol he 


TUNNELS LEAD TO 15, 16 , 20 AND 19 


WHERE DO YOU WANT TO GO? 20 


10 
20 


oO 


40) 
45 
pa 
4Q 
70 
BO 
90 


YOU HAVE MADE IT!! 


YOUR CAVERN-MASTER RATING IS 7158 
YOU GOT OUT WITH: 
COFPFRER HEADBAND 
SPARELING AMULET 
PLATINUM SHIELD 
MAGIC SCROLIL 


Here's the listing to allow you to make your own discoveries 
within THE CAVERN OF THE SHADOW THIEVES: 


REM CAVERN OF THE SHADOW THIEVES 

REM FOR VZ 300 

DIM ACSZO,4)  R$(4) , BS (20) ,C#(20) ,DS(20), 
E6 (20) ,F$ (20) 

COLOR 2,1:CLS 

COLOR (1+RND(3)),@ 

GOSUB 1130:REM BUILD CAVERNS 

(SQ0SUR 1030:REM FILL ARRAYS 

GOSUB 920:REM ALLOT INHABITANTS/GOODIES 

GQ=SOsREM TIMER 

Y=]: X=0 


1090 COLOR @2@,1:CLS 

110 REM XXxkkxXxX MAJOR GAME CYCLE XxXxXxkxxk 

120 GOTO 230 

130 PRINT "OKA AOKKKKRK KK KKK AK KK KKK" 

140 Q=0-1: IF Q«1 THEN 880 

150 FRINTSFRINT "TIME REMAINING: ":@ 

160 PRINTsFRINT TABC(RND(S))3 "YOU ARE IN CAVERN": Y 
170 IF XO THEN PRINT "YOU HAVE COME FROM CAVERN": X 
180 IF R#(1)=""ANDRS (2) =" "ANDRE (CS) =" 


ANDRS (4) =""THEN 190 


185 PRINT "YOU ARE CARRYING: " 

190 Z=1 

200 IF R€(Z)>""THEN PRINT Zs" —- "sRBCZ) 
£10 IF Z<4 THEN Z=Z+1:GOTO 200 

220 RETURN 

230 GOSUBR 120 

“40 IF LEN(FRC(Y))=0 THEN 430 

“SO PRINT:PRINT" THE CAVERN CONTAINS A"sPRINT FS (Y) 
260 IF INKEY$<2"" THEN 260 

“70 PRINT:PRINT "DO YOU WANT IT (Y OR N)?" 
280 O$=INKEY4 
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290) 
arele) 
310 


320 
i CT 
340 
McherT ©) 
260 
370 
380 
390 
4AOO 
410 
420 

aQ 
44Q 
ASO 


440 
470 
4980 
490 
WOO 
210 
rad @) 
wo) 
W440 
oO) 
TOO 
w7D 
o8O 
TFO 
600 


610 
620 
630 
640 
650 
640 
670 
680 
690 
28 


IF Q$<>"Y" AND @$<2"N" THEN 280 
IF Q$="N" THEN 430 
IF RS(1)="" OR RS(Z)="" OR R#(B)="" 
OR R$(4)="" THEN 290 

PRINT "YOU ARE CARRYING TOO MUCH" 
INPUT "WHICH ITEM DO YOU WANT TO DROF";S 
IF S¢i OR $34 THEN 330 
TS=RS (S) 
R$ (S) =F%(Y) 
Fe(y)="" 
GOTO 420 
G=1 
IF R&(G)="" THEN R&(G)=FS(Y)2FS(Y)=""2GOTO 420 
IF Gé4 THEN G=G+1:GOTO 400 
GOSUB 130 
IF LEN(D$(Y))=0 THEN 400 
IF ASC(D&(Y))=42 THEN 820 
PRINT:PRINT "THERE IS A "3D%#(Y) 

:PRINT “HERE, WHO WANTS A" 
PRINT E#(Y);" TO LET YOU PASS" 
FOR I=1 TO @00:NEXT I 


G=1 
IF R#$(G)=E#(Y) AND E#(Y)<2"" THEN SSO 
IF Gé4 THEN G=G+1:GOTO 490 


PRINTIPRINT "YOU MUST RETURN TO" ;X 

FOR I=1 TO 400:NEXT I 

P=X2X=Y¥: Y=PF 

GOTO 250 

FRINT "AND YOU HAVE IT!" 

FOR I=1 TO 800:NEXT I 

PRINT “THE "sD@(Y):" VANISHES! ":D#(Y)="" 
F$ (YY) =R (G6) 

R$(G)="" 

PRINT "TUNNELS LEAD TO"SACY,1)sACY,2) 5 


ACY, 3) 3 "AND": A(Y,4) 


PRINT: INPUT "WHERE DO YOU WANT TO GO";M 
IF M=O THEN @=@-5:M=RND(1i46):GOTO 470 
G=1 

IF ACY,G)=M THEN 470 

IF G4 THEN G=G+1i:GOTO 640 

GOTO 610 

X=Y 

Y=M 

IF Y=230 THEN 710 


FOO 
710 
Fig 
730 
74g 
7aQ 


760 


779 


780 
790 
OQ 
G10 
320) 
E30 
B4o 
ESO 
HOO 
870 
88o 
890 
9a 
910 
920 
920 
PAO 
950 
960 
970 
980 
P90 


L000 


GOTO 230 
REM OOO IGOR GIOK 
REM xkxkk SUCCESS *4xkx 
CLS 
FOR I=1 TO SO:PRINT TAR(I) s"X":NEXT I 
PRINTIPRINT “YOU HAVE MADE IT!!":SOUND 7,2 
:SOUND 8,1:FIRINT 

PRINT “YOUR CAVERN-MASTER RATING" 

SPRINT "IS": 100k (1O0-Q) +2x0 
IF RCL) ="" AND R#(2)="" AND RC) =" 

AND R$(4)="" THEN END 

FRINT "YOU GOT OUT WITH:" 
FOR T=1 TO 4:F RINT TABCRND(7)) she (T) 
NEXT T 
FEND 
REM xxx TELEFORTATION xxx 
FOR [=1 TO 3O:PRINT TABCI) "xX": NEXT 
X=¥:SOUND 16,2:SOUND 10,3:SOUND 17,1 
Y=INT (RND (9) +7) 
GOTO 230 
REM OOO OOK OOK 
REM *xkxk END *Q THE LINE xxx 
PRINT:FRINT "SORRY, FRIEND, BUT TIME IS UP" 
END 
REM OO GIO OIOIOICIGIGIOIOK 
REM *xk DISTRIBUTE INHABITANTS/GOODIES xxx 
FOR E=1 TO 14 
F=RND (19) +1 
D$(F) =B$ (RND(20)):REM INHABITANTS 
E$(F)=C$(RND(20)):REM BRIBES 
F=RND (19) +1 
Fa (F) =C# (RND (20) ):REM CAVERN CONTENTS 
IF RND(10)=5 THEN D$(F)="x":REM TELEPORTATION 
NEXT E 


1010 RETURN 


1020 


REM OOOO KIO KAOK 


1030 REM xxx CREATE CAVERNS Xxx 
1040 FRINT "PLEASE STAND BY AS I 


HIDE THE GOODIES..." 
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1050 
1060 
1070 
1080 
1090 
1190 
1110 
1120 
1130 
1140 
1150 
11460 
11435 
1170 
1189 
1190 
1200 
1205 
1210 


1220 
12:30 
1240 
1250 
1260 
1270 
1280 


L500 


1305 
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FOR D=1 TO 20 


READ 
NEXT 


BS(D):PRINT TAB(D);"x":SOUND D,l 
D 


FOR D=1 TO 20 


READ 
NEXT 


C$(D) 
D 


RETURN 


REM 


FORO OIRO KKK KOK KKK 


REM Xxx CONSTRUCT CAVERN Xx*X*x 


FRINT 


"PLEASE STAND BY AS I CONSTRUCT THE 


FOR B=1 TO 20 

PRINT TAB(B) s"k" 

SOUND BH, 1. 

FOR C=1 TO 4 

& (B,C) =B+ (RND (7) -RND (4) ) 

IF A(B,C)=B OR ACB,C)<i1 OR ACB,C) 220 THEN 1180 


NEXT 


C 


SOUND &, 1 


IF A(B,1)=A(B,2)0R A(B,1)=A(B, 3) 


OR 


A(B,1)=A(B,4) THEN 


IF ACB, 2)=A(B,3) ORA(BE,3)=A(B, 4) OR 


A(B,2)=A(H, 4) 


IF RND(1O00)<19 AND Bele THEN ACR, (RND (4) ))=20 
NEXT B 


CLS 


RETURN 

REM KXKKKKKKKKKKKK 

REM *xXxk INHABITANTS xxx 

DATA "HAIRY HOBGOBLIN’, "BALD BERSERKER", 


"SEINNY SKELETON" 


DATA "GRUESOME GNOME", "CUNNING CONJURER" 


DATA 


DATA 


DATA 


DATA 


» "CRAZY CENTIFEDE" 
"DEMENTED DWARF", "GAVAGE SHRIEKER" 
»"CREEFIE CRAWLIE” 
"ROTTEN RODENT", "TERRIBLE TOAD" 
»"STICKY STURGE" 
"GHASTLY GHOUL", "WICKED WEASEL" 
2 "LUMPY LEGEND" 
"ZANY ZOMBIE", "CROOKED CRAB" 
S"WRATHFUL WRAITH" 


CAVIZ. 2" 


1170 


THEN 1170 


DATA 


"WEIRD WEREWOLF", "GIANT GARGOYLE" 


REM XXKKKKKKKKKKKKKK 
REM *kxX THE LOOT xxx 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


"FIECE OF COPPER", "SFUNETRUM COIN", 
“PLATINUM SHIELD" 
“COPPER HEADBAND", "MAGIC SCROLL", 
"FABULOUS FOTION" 
"WAND OF HEALING", "GWORD OF FIRE", 
"SPARELING AMULET" 
"WAR HAMMER’, "FIECE OF COPPER", 
"SPUNK TRUM COIN" 
"PLATINUM SHIELD", "COPPER HEADBAND", 
"MAGIC SCROLL" 
"FABULOUS FOTION", "WAND OF HEALING", 
"SWORD OF FIRE" 
"SFARELING AMULET", "WAR HAMMER" 
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|| THE DUKE OF 
DRAGONFEAR 


THE DUKE OF DRAGONFEAR puts you into another grid system 
world, but one which is populated with a range of fearsome pos- 
sibilities including pits containing quicksand or dragons, as well as 
magic caves which can transport you at random within the Land of 
Dragonworld, and caves filled with Dragon’s gold. 
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If you’re a veteran of computer games, you may well recognize 
that THE DUKE OF DRAGONFEAR is a development of the Hunt 
the Wumpus games. Wumpus is one of the grand old standards of 
computer games, in which you are in a cave system, looking for one or 
more mythical beasts known, in the singular (and these are most sin- 
gular beasts) as Wumpus. Wumpii, we are assured by those who care 
about such things, is the plural. Anyway, in essence, a grid is set up in 
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such games, and objects, people, effects, monsters and whatever else 
you choose are placed at locations on the grid. From time to time, if 
you so decide, one or more of the contents of specific cells of the grid 
may move. The human player, of course, can also move from cell to 
cell within the grid. 

Generally, there is no overall visible map of the system, although 
some programs (such as THE DUKE OF DRAGONFEAR) do pro- 
vide such information for players. The very first Wumpus game was 
written by Gregory Yob in 1975. In David Ahl’s superb book More 
BASIC Computer Games (Creative Computing Press, Morristown, 
New Jersey, 1979), Mr. Yob explains how he was visiting People’s 
Computer Company, in Menlo Park, California, to see the programs 
they were developing, and he noticed there were three “hunt the 
something” programs being written, each ona 10 X 10 grid, and each 
of which gave feedback to the player in terms of “no, no. . . try to the 
northwest.” 

Unenchanted, Mr. Yob returned to a lonely time-sharing termi- 
nal (back in those ancient days, gentle reader, human beings did not 
have little computers at their beck and call) and hammered out the 
program which eventually became the very first “Hunt the Wumpus.” 
Mr. Yob had the creature dwelling in a dodecahedron-shaped cave 
system. 

Mr. Yob’s inventive genius did not stop at this point. He peopled 
the cave with “magic bats” which moved you from place to place 
within the system at random, with bottomless pits, and ensured that 
the arrows with which you were equipped when you entered the sys- 
tem could fly round corners. 

You can see now how this framework became the heart of the 
Wumpus programs which have proliferated around the world and 
which formed the very rawest framework upon which THE DUKE 
OF DRAGONFEAR is based. This program gives you more control 
on the outcome of the program, adds treasure to the caves, and im- 
poses a time-limit to your game. 

As well, you are equipped with a “magic amulet” which can see 
into the caves which are around you. Unfortunately, because you're 
not much of a whiz when it comes to invoking magic, the old amulet 
doesn’t work too well. It can only tell you of the contents of one of the 
eight caves surrounding the one in which you stand, and worse than 
this does not tell you which of the eight it is referring to. It is not as 
bad as it may sound. You'll be surprised at how much use you can 
make of the limited information the amulet provides. As well, you'll 
get a brief glimpse of the cave system from above at the start of the 
game, and from time to time as it goes on. 


In this map, X represents a wall you cannot pass or a cave you 
cannot enter, H (for human) is you starting in about the center of the 
system, $ is the treasure caves, ? the magic transportation caves, D 
represents dragons, and Q tells you that cave contains quicksand. Ob- 
viously this is a world filled with potential pleasures as well as dan- 
gers. 
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This is the program listing to enable you to become THE DUKE 
OF DRAGONFEAR: 


10 REM DUKE OF DRAGONFEAR 
20 GOSUB 1280 
3O CLS:PRINT: PRINT: PRINT 
40 GOSUB 1200 
50 G=RND(7)-1 
60 IF O=0 AND E<>55 THEN GOSUB 1200 
70 CLS:PRINT:PRINT:PRINT "DUKE "A$", YOU ARE IN CAVE"E 
80 IF G>O THEN PRINT "YOU ARE CARRYING #$"G" 
WORTH OF GOLD" 
90 GOSUB 740 
100 PRINT:PRINT “YOU HAVE"25-H"UNITS OF CHARISMA LEFT" 
110 PRINT:PRINT "WHAT DO YOU WANT TO DO?" 
120 PRINT “N - MOVE NORTH, S - MOVE SOUTH” 
130 PRINT "E - MOVE EAST, W —- MOVE WEST" 
140 PRINT "F - FIGHT A DRAGON, @ QUIT" 
150 INPUT Z$:U=0: IFZ$="N"ORZ$="S"ORZ$="E"ORZ$="W" 
ORZ$="F"THEN140 
SS IF Z#<>"@Q" THEN 150 
160 IF Z#="N"ANDA(E-10)=88 OR Z#="S" AND AC(E+10) 
=88 THEN 1620 
162 IF Z$="E" AND A(E+1)=89 OR Z$="W" AND ACE-1) 
=88 THEN 1620 
170 IF Z$="Q" THEN Q=9:GOTO 1170 
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180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
SOQ 
310 
320 
3350 
340 
350 
3550 
370 
380 
B90 
400 
410 
A20 
ASO 
440 


ASO 
ASO 
470 
475 


480 
490 


SOQ 


S10 
a2) 
wl) 
J4c) 
na hel ©) 
360 
70 
36 


AC(E)=46: IF Z$="N" THEN E=E-10 

IF Z$="S" THEN E=E+10 

IF Z2$="E" THEN E=E+1 

IF Z$="W" THEN E=E-1 

IF Z$="F" THEN GOSUB 950 

IF A(E)=63 THEN GOSUB 310: REM MAGIC 
IF A(E)=68 THEN GOSUB 400:REM DRAGON 
IF A(E)=81 THEN GOSUB 350:REM QUICKSAND 
IF AC(E)=36 THEN GOSUB 630:REM GOLD 
H=H+1: IF H=25 THEN @=9:GOTO 1160 
GOSUB 1610 


GOTO SO 

REM KXKXKKKKKKKKKKKKKKKKKKKK 

REM MAGIC 

PRINT:FRINT "DUKE "At", YOU" VE STUMELED" 


PRINT "INTO A MAGIC CAVE,AND NOW YOULL" 
PRINT "BE WHISKED OFF TO ANOTHER CAVE...." 
GOSUB 16410 
A(E) = 464 
E=RND(746)+12: IF ACE) =88 THEN 370 
RETURN 
REM KXXKKKKKKKKKKKKARKK KK KKK 
REM DRAGON 
FRINT “YOU HAVE WANDERED INTO A DRAGON?’ 5" 
FRINT "“LAIR...START SAYING YOUR FRAYERS" 
GOSUR 1610 
M=RND (10000) /10000; IFM=,.2THENPRINT"IT HAS 
FLOWN AWAY": RETURN 
PRINT "IT AWAKENS...AND IT HAS SEEN YOU" 
GOSUB 1610 
IF M?.849999 THEN FRINT "BUT IT HAS RECENTLY EATEN 
IF M>.849999 THEN FRINT "AND SO GOES BACE TO 
SLEEP": RETURN 
PRINT "AND NOW IT ATTACKS...... is 
GOSURB 1610 
IF Me.95 THEN FRINT "BUT YOU FIGHT BACK....AND 
WIN" s RETURN 
PRINT "GOODBYE DUKE "AS 
GOSUB 1610:SOUND 1,8:SQUND 1,8:SOUND 1,86 
O=9:GOTO 1160 
REM KX KXKKKKKKKKKK KK KKK KKKK 
REM QUICK SAND 
FOR J=1 TO 1i2 
FOR k=1 TO J:PRINT " "s:NEXT 


28Q 
whee) 
rae) 
610 
620 
650 
S40 
6S) 
560 
670 
680 
690) 
7OO 
710 

20 
73a 
7T4AQ 
FOO 
760 
770 
780 
79O 
BOO 
810 
820 
830 
840 
ped 
840 
870 
880 
g90 
9a0 
910 

20 
930 
940 
950 
9355 


960 


970 
418) 


FRINT "“HORRORS...QUICKSAND!"sSOUND 3i-J,1 

FOR O=1 TO 100:NEXT O 

NEXT J 

Q=9sH=O:GOTO 1140 

REM OOK OKO IO K KK KK KK KKK 

REM TREASURE 

K=eRND (C100) +4100 

FOR J=1 TO 12 

FOR Z=1 TO J:FRINT " “s:sNEXT Z 

FRINT "TREASURE ! ! I" 

FOR O=1 TO 150:NEXT © 

NEXT J:SOUND 16,2:SOUND 18,2:SGUND 20,2:SOUND 21,5 

(SQOSUEBR 1610 

rRINT:PRINT “YOU? VE FOUND A HOARD OF" 

PRINTsFPRINT "“DRAGON-GOLD, WORTH $$" 

6=6+K 

RETURN 

REM KXKKXKKKKKKKKKX 

REM AMULET DETAILS 

Y=] 

L=AC(Et+F CY) ) 

IF Lét446 THEN 820 

IF Yi8 THEN Y=Y¥+1:GOTO 780 

IF L=46 THEN RETURN 

FRINT "YOUR ANULET SIGNALS THAT" 

FRINT "THERE IS "5 

IF L=88 THEN PRINT “A SOLID WALL"; 

IF L=632 THEN FRINT "A MAGIC CAVE"; 

IF L=68 THEN FPRINT "A DRAGON"; 

IF L=81 THEN FRINY "“QUICKSAND"s: 

IF L=36 THEN PRINT "GOLD"; 

FRINT " NEARBY" 

GOSUBR 1610 

RETURN 

REM KXKKKKKKKKKKKKKKKKKKKKEK 

REM ATTACK DRAGON 

PRINT 

AR=AR-1:IF AR=0 THEN PRINT "YOU HAVE USED UP ALL" 

IF AR=0 THEN PRINT " ARROWS...--" 
GOSUB 1610:RETURN 

FRINT "YOU HAVE"AR"ARROWS IN YOUR QUIVER" 

SS=0 

FRINT "WHICH DIRECTION DO YOU WANT" 
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990 INPUT "TO SHOOT IN (N,S,E,OR W)"3S% 


1000 IF S$="N" AND ACE-10)=68 THEN SS=1:YT=E-10 
1010 IF S#="S" AND A(E+10)=68 THEN SS=1: YT=E+10 
1020 IF S$="E" AND ACE+1)=68 THEN SS=1: YT=E+1 
1030 IF S$="W" AND A(E-1)=68 THEN SS=1: YT=E-1 
1040 PRINT 
1050 IF SS=0 THEN PRINT "THERE WAS NO DRAGON THERE.....' 
1035 IF SS=0 THEN PRINT "YOU HAVE WASTED AN 
ARROW! !"3:GOTO 1150 
1060 PRINT "WELL DONE, DUKE "Ast 
1070 PRINT "YOU HAVE HIT" 
1080 PRINT "A FEROCIOUS DRAGON" 
1090 GOSUB 1610 
1100 JF RND(10) 23 THEN 1140 _ 
1110 PRINT "YOU KILLED IT!!"s:A(YT)=46:K=RND (100) +100 
1120 FRINT 
1150 PRINT "YOU ARE REWARDED WITH $"k:G=G+tk: GOTO 1150 
1140 PRINT "BUT YOU ONLY WOUNDED IT....." 
1150 GOSUB 1610: RETURN 


1160 IF Hii THEN PRINT "ALL YOUR CHARISMA IS" 
1165 IF H<1 THEN PRINT "....EXHAUSTED....":GOSUB 
1610:GOTO 1180 
1170 PRINT "YOU HAVE"25-H"UNITS OF CHARISMA LEFT" 
1180 IF G>O THEN FRINT "YOU AMASSED 4"G"WORTH OF GOLD” 
1190 PRINT: PRINT 
1200 A(E)=72 
210 FOR J=1 TO 100 
1220 PRINT CHR#(A(J)) 3" "5 
1250 IF 10KINT(J/10)53 THEN FRINT 
1240 NEXT J 
1250 GOSUB 1610 
1260 IF G=9 THEN END 
1270 RETURN 
1280 CLS:PRINT: PRINT: PRINT 
1290 PRINT " WELCOME TO THE WORLD OF": 
PRINT ," = DRAGONFEAR" 


1200 FRINT "YOUR MISSION IS TO EXFLORE THE" 


1310 FRINT "CAVES OF DRAGONWORLD,LOOKING FOR" 
1320 FRINT "TREASURE, AND ATTEMPTING TO SLAY" 
1330 PRINT “THE FEARSOME DRAGONS WHO LIVE IN" 
1240 PRINT "THE CAVES. WHAT IS YOUR NAME"s 
1350 INFUT At 
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1360 
1270 
13680 
1390 
1400 
1419 


1420 
1430 
1440 
1450 
1440 
1470 
1480 


1490 
1500 
1510 
1520 
13-30 
1540 
15350 
1560 
1570 
1580 
1590 
1600 
14610 
1620 


CLS:FPRINT:FRINT “ALL HAIL, DUKE "AS 
PRINT:FRINT "YOU START THIS EXPLORATION" 
PRINT "WITH 25 UNITS OF CHARISMA, AND" 


PRINT "YOU MUST COMPLETE YOUR TASK" 
PRINT "BEFORE THE CHARISMA IS WORN OUT." 
PRINT " YOU LOSE ONE UNIT FOR EVERY": 


PRINT, "MOVE YOU MAKE" 

TS=INKEYS: T= INKEYS 

PRINT:PRINT "PRESS ANY KEY TO BEGIN" 

IF INKEY$="" THEN 1440 

CLS:FPRINTI224, "PLEASE STAND BY, DUKE "AS 

DIM A100) :H=0:Q=0:L=0:G=0:AR=6 

FOR H=1 TO 100:A(B)=46 

IFBs 120RE>9OORLOXINT (B/10) =BORLOXKINT (B/10) 
=R-1 THEN A(B)=88 

NEXT 

FOR B=i TO S:RESTORE:FOR D=1 TO 5 

Z=RND(76)+12:IF A(Z)=88 THEN 1510 

READ C:A(Z)=C 

NEXT D,B 

DATA 88,43,68,81,36 

FOR B=1 TO &:READ Z:F'(B)=Z:NEXT B 

DATA -11,-10,-9,—141,9,10,11 

E=55 

RETURN 

REM 

REM 

FOR O=1 TO 

PRINT "YOU 


SQO00:;NEXT Os RETURN 
CANNOT MOVE THAT WAY! "sGOTO 150 
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Simulations 


Simulations are ways of producing a counterfeit reality. In contrast to 
adventure, where the reality created via the computer is often magi- 
cal and dream-like, the worlds accessed through computer simulations 
are generally more down to earth. 
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In a simulation, the computer manipulates variables in accord- 
ance with formulae you’ve specified, keeping tabs on the unfolding of 
the situation you’ve generated, and taking the place of the environ- 
ment in terms of reacting to your input. 

Simulations attempt to replicate life. However, because reality is 
notoriously hard to pin down and limit, we need to do some pretty 
drastic simplification before we can produce a workable simulation. 

Despite this simplification—as you'll soon see—a well-written 
simulation can imitate life to an uncanny extent. Cause and effect are 
linked as accurately as you can devise formulae for them. 
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| | MISTRESS OF 
XENOPHOBIA 


We'll start our exploration of simulations with the silliest one of the 
lot, MISTRESS OF XENOPHOBIA, which is based on a program 
written by Alastair Gourlay, a talented programmer who lives in 
Glasgow. 








There’s no need to explain MISTRESS, as the program gives 
you all the prompts you could need. Here’s the listing: 


20 GOSUR 700 
SO REM OOOO OO OOK IK Xx 
40 FOR Y=1 TO 20 
vO (CLS 
60 FRINT: PRINT 
70 PRINT'MISTRESS OF XENOPHOBRIA,A REPORT" 
BO PRINT"FOR YOU FROM THE OFFICE OF INFO 
-MATION REGARDING THE" s 
90 PRINT" STATE OF":FRINT“ YOUR FLANET" 
100 PRINT" IN THIS YEAR OF GRACE, "1994+Y 
120 PRINT" THE PLANETS FOFULATION IS" INT (F+INP (H)) 
130 GOSUB 880 
140 PRINT: PRINT" THE GROVELLING FEASANTS COULD " 
150 PRINT'"WOREK SOME"L"ACRES THIS YEAR..." 
160 GOSUE BBC 
170 PRINT" YOUR TREASURY HOLDS GOLD, GEMS" i 


1980 
190 
200) 
210 
wel) 
20) 
240) 
2u 
250) 
“2/9 
2B0O 
290 
3200 
310 
320 
ORT @) 
340 
SOO 
3560 
27) 
380 
SFO 


39S 


400 
410 
420 
430 
440 


450 
450 
470 
480 
490 
BOO 
31 
v2 
WO) 
240 
val ber) 
ato 1 @) 
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PRINT"AND COINS WORTH "INT (UD 

GOSUE 88a 

PRINT:FRINT "TIME TG ISSUE A DECREE...." 

PRINT: PRINT"HOW MUCH LAND IS TO BE FARMED" 

INFUT"THIS YEAR"; W 

U=U-Wx10 

IF U<1 THEN 780 

L=L+W 

GOSUB BBC 

PRINT:FRINT’AND HOW MUCH WILL YOU SFEND" 

INFUT"ON FOOD FOR THE PEASANTS"; W 

U=U-Wxk10 

IF U<i THEN 780 

R=RND (10) 

GOSUB 880 

IF P-WkRXS>P/4 THEN GOSUB 580 

P=P+RND (1000) /1000X (WXRXS-P) 

IF F>149 THEN 410 

GOSUB 880 

PRINT"THE POPULATION OF XENOFHOBIA IS” 

PRINT"NOW DOWN TO"INT(F) "AND THAT" 

FRINT"JUST AIN'T ENOUGH, YOUR XENO":SOUND 8,28: 
SOUND 7,7 

SOUND 6,4:SOUND 5,%:SOUND 4,4:SOUND 3,3; 

SOUND 2,2:SOUND 1,1 

GOTO 480 

U=U+INT (PKL) /93 

NEXT Y 

PRINT: PRINT:PRINT"WELL, YOUR XENOPHOBIC, THAT’S" 

PRINT"THE END OF YOUR 20 YEAR DOMINAT-ION OF 

OUR LITTLE"; 

PRINT"PLANET.":PRINT"YOU MANAGED TO" 

PRINT"ACCUMULATE SOME $"U"WHICH" 

FRINT"I GUESS AIN*’T TOO BAD...." 

GOSUEB 880 

PRINTSPRINT" IF YOU"D LIKE ANOTHER SHOT" 

PRINT"RULING, THEN JUST PRESS *Y* OR" 

PRINT"PRESS *N’...." 

A$=INKEY$ 

IF AS<>"Y" AND AS<S>"N" THEN 520 

IF AS="Y" THEN RUN 

PRINT"YOUR WISH IS MY COMMAND" 

PRINT"OH MISTRESS OF XENOPHOBIA": END 


o70) 
w8O 


53s 
590) 
600) 
610 
20 
30 


640 
&5O 
550 
670 
580 
690 
700 

mc) 
730 
740 
75Q 
760 
770 
7B0O 
79Q 
BOO 
B10 
820 
B20 
840 
850 


860 


870 
8BO 
890 
9OQ 
910 


REM XXHKK KKK KKK KK KK KKK KKK KK 
PRINT"OH DEAR! THERE*S NOT ENOUGH FOOD 
FOR EVERYONE...." 

PRINT: PRINT'HORRORS, YOUR XENONESS" 

PRINT" THERE*S BEEN A REBELLION! !//" 

FRINT" THE PEASANTS ARE REVOLTING" 

PRINT' (21 HAD FO FUT THAT LINE IN)" 

GOSUB BHO 

IFRND (35) =1THENFRINT" AND YOUR COPS 
COULDN’* T STOF THEM": GOTO480 

FRINT"BUT YOUR RUTHLESS POLICE HAVE" 

FRINT FUT A STOP TO ALL THAT NONSENSE" 

GOSUR 8B8O 

RE TURN 

NEXT Y 

REM XXKXKKKKKKKKKKKAKKKKKKKKK 

REM INITIALISATION 

CLS 

F=FPEER (RND (32767) ) sH=P 

U=700+RND (550) 

L=70+RND (S50) 

RETURN 

REM XXKXKKKKKK KKK KKK KKK KKK KX 

REM BANKRUPTCY 

FRINTZSFRINT"WELL, XENO, THATS A FINE" 

PRINT'MESS YOU*VE GOT YOURSELF, AND 

FRINT"OUR LITTLE PLANET INTO." 

GOSUB 880 

PRINT: PRINT" THE TREASURY IS BANKRUPT! !" 

GOSUB 880 

PRINT: FRINT"AND GUESS WHO BLEW IT??? PP eer" 

GOTO 490 

REM XX KKK KR KKK KKK KKK KKK KKK 

REM DELAY 

FOR J=1 TO 1500 NEXT J 

FRINT 

RETURN 
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| ]JRURAL PURSUITS 


If you’ve survived being MISTRESS OF XENOPHOBIA, you may 
be interested in something a little more earthy—running a farm. In 
RURAL PURSUITS, based loosely on a program written by Stephen 
Glen, also of Glasgow, you have a very difficult task, as you battle 
with an extremely touchy work-crew to bring home the bacon (or at 
least the wheat and barley) 





i —— ee 


a 





Again the program is largely self-prompting, and working with it 
will teach you the best strategy for gaining a maximum return from 
your farm (and surviving for the requisite 20 years to win the game). 
However, a few hints will not go astray. Although you can save 
money by paying your workers extremely badly, you'll find they’ll 
desert you in droves in the following year, and the return you get 
from your land is dictated, to some degree, by the number of people 
you have working on the land. 

Another factor to keep in mind is that the three crops which you 


can plant have quite different returns, so it is in your interest to work 
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out which is the most profitable crop, and concentrate on that. 

Do not be dismayed if you foul the process up the first few times 
you run the program. You’l! have to develop some real skills to keep 
your farm solvent, and it may take you several bad years to get the 
hang of it. 

Here’s the program so you can become a happy farmer: 


10 REM RURAL FURSUITS 

20 YR=1 

40 MO=RND (1000) +7000 

SO LA=RND(1000) +100 

60 AC=RND (200) +300 

70 CS=RND (5) +8 

BQ BA=03s WH=0: CO=0 

90 GOSUB 170 

100 GOSUB 290 

110 IF YR=10 THEN 750 

120 IF MO<1 THEN 790 

130 IF LAs1 THEN 820 

140 YR=YR+1:AC=AC+INT (AC/RND (100) ) 
150 CS=CS+INT(12.5xCS/100) 


160 GOTO 80 
170 REM UPDATE 
180 CLS 


190 FRINT"YOU HAVE $"MO"IN YEAR" YR 

200 GOSUB 880 

210 PRINT"YOU ARE EMFLOYING"LA 

220 PRINT"LABORERS, WORKING FOR" 

259 FRINT" YOU ON"AC"ACRES" 

#40 GOSUB 880:FOR V=1 TO 1900:NEXT V: 
FRINT "FRESS ANY NUMBER" 

245 IF VALCINKEYS)=0 THEN 245 

290 PRINT"CROPS: —"TAB(C7) ;CO" CORN" 

250 PRINT ,BA"BARLEY" 

270 PRINT ,WH" WHEAT" 

280 RETURN 

290 PRINT: PRINT"IT WILL BE $"CS"IN" 

200 PRINT'GENERAL COSTS TO WORK EACH" 

510 PRINT"ACKE...AND SQ) THE MAXIMUM" 

320 PRINT"NUMBER OF ACRES YOU CAN" 

330 PRINT"WORK THIS YEAR IS"; 

340 MAX=INT(MO/CS):IF MAX>AC THEN MAX=AC 

350 FRINT MAX 


360 


370 
“940 
390 
400) 
410 


420 
4350 
440 
450 
ASO 
470 
480 
490 
500 
510 


peal) 


0 
40 
pope] ©) 
40 
70) 
wt = 1) 
S90 
10] ©) 
610 
20 
S30 
640 
650 
560 
&70 
680 
690 
700 
719 
720 
730 
740 
750 
760 
770 


FRINT"HOW MUCH LAND DO YOU WANT TO": 
PRINT" HARVEST"; 

INFUT L 

IF LeMAX THEN 370 

MO=MO—-LxXCS 

GOSUE 170 

FRINT:FPRINT"HOW MUCH WILL YOU FAY EACH ": 

INFUT W FRINT "WORKER" ; 


IF WXLA?MO THEN 420 
MO=MO-LAXW 

GOSUB 170 

F=10 

PRINT"WHAT FROPORTION (OUT OF TEN) DO" 
PRINT"YOU WISH TO CONCENTRATE ON CORN"; 
INPUT CF 

IF CP>P THEN 490 


P=P--CF 

PRINT!PRINT"OF THE REMAINING"P"QUT OF TEN," 
PRINT"HOW MUCH WHEAT DO YOU WANT TO PLANT" 
INFUT WF 

IF WEF THEN 540 

P=F-WP 


GOSUH 870 

FRINT"STAND BY FOR A YEAR...." 

FOR Z=1 TO 2000!NEXT Z 

FA=INT (PXLXLAKWKS/ 100000) 

CO=INT (CP XLXLAXWK2. 7/17000) 

WH=INT (WEXLXLAXKWK1. 4/9200) 

T=BKA+CO+WH 

GOSUE 170 

FRINT:FRINT T" TONS WERE HARVESTED" 
RT=INT ((.5+8. 7KBA+S. 94KC0+2. 2KWH) Kk (CS-CX+1) ) 
IF BA=Q AND CO=0 AND WH=0 THEN RT=0 
FOR Z=1 TO 2000:NEXT Z 

PRINT: FRINT"AND YOUR TOTAL RETURN" 
PRINT"WAS $"RT 

MO=MO+RT 

LA=INT (LA-LAZ/ (W+.01) ) 

FOR Z=1 TO 2000:NEXT Z 

RETURN 

GOSUB 870 

PRINT "YOU HAVE SURVIVED FOR 10 YEARS" 


PRINT"CONGRATULATIONS!" 49 


775 
780 
790 
stele) 
810 
B20 
B39 
840 
850 
850 
870 
880 
B90 
900 


910 
920 
30 


940 


IF MO>1E+12 THEN GOSUB 900 
PRINT “AND GAINED"MO"MONEY" : END 
GOSUB 870 
FRINT “YOU HAVE GONE BROKE! " 
END 
GOSUB 870 
FRINT "YOU HAVE NO WORKERS, AND" 
PRINT "HAVE BEEN FORCED TO SELL" 
FRINT , "YOUR FARM" 
END 
CLS 
PRINT: PRINT 
RETURN 
FOR TU=1 TO 33:READ FR,DU:SQUND FR, DU: 
NEXT TU:RETURN 
DATA 16,3,18, 2, 20,3, 20,1, 20,2, 18,1, 20,2, 21,5, 20,3 
DATA 20,2,18,3,18,1,18,2,16,2, 18,2, 20,3,16,2 
DATA 16,3, 18,2, 20,3, 20,1, 20,2, 18,1, 20,2, 21,2, 
23,5,25,5 
DATA 25,4, 23,3, 21,2, 20,3, 18,2,14,5 


| | AVALANCHE 


In this simulation, you are Mayor Glugenheimer, the leader of a 
Swiss alpine village which lies directly in the path of avalanches 
which launch themselves at the village with monotonous regularity. 
The game, like the other three in the book, forces you to make deci- 
sions regarding the expenditure of strictly limited resources. On these 
decisions hang the fate of your village. 

You are (you hope) in office for 20 years. Although it is more 
likely than not that the village will survive from year to year without 
suffering the ravages of an avalanche, the chances of an avalanche 
increase each year. The only resource under your control is money, 
which can be used to build shelters within which your villagers can 
huddle in comparative safety when an avalanche hits. 

You have limited money (which is bearing a generous interest 
rate if it is not spent on shelter). The longer you hang on to the 
money, the more you will have to spend on avalanche shelters. How- 
ever, the longer you wait without buying shelter, the more likely it is 
that an avalanche will occur, and many members of your village will 
be killed. You must therefore determine what proportion of your 
money you will keep on deposit, and what portion of it will be spent 
on shelter. If you have no shelter when an avalanche strikes, the vil- 
lage will be wiped out. 

As you can see, you are bearing a considerable amount of respon- 
sibility. If an avalanche does strike, and the computer considets the 
loss of life totally unacceptable, the game will terminate with the fol- 
lowing statement: 





THE LOSS OF HUMAN LIFE WAS 
CATASTROFHIC...YOU HAVE 
BREEN FORCED TO STEF DOWN 
FROM THE OFFICE OF MAYOR 


Here are a few “years” from the program in action: 


YEAR 1 
THE CHANCE OF AN AVALANCHE IS 19 TO 1 


THE VILLAGE HAS 2472 PEOPLE 
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THE VILLAGE TREASURY HOLDS $ 12252 


HOW MUCH WILL YOU SPEND ON SHELTER”Y 


YEAR 2 
THE CHANCE OF AN AVALANCHE IS 18 10 
THE VILLAGE HAS 2595 PEOPLE 
YOU HAVE 29700 SHELTER 


THE VILLAGE TREASURY HOLDS # 13505 


HOW MUCH WILL YOU SPEND ON SHELTER®Y & 


YEAR 3 
THE CHANCE QF AN AVALANCHE IS 17 TO 
THE VILLAGE HAS 2724 PEOPLE 
YOU HAVE 29835 SHELTER 
THE VILLAGE TREASURY HOLDS # 1436 


HOW MUCH WILI YOU SPEND ON SHELTER? 


YEAR 3 
THE CHANCE OF AN AVALANCHE IS 15 TO 
THE VILLAGE HAS 3003 PEOPLE 
YOU HAVE 29949 SHELTER 


THE VILLAGE TREASURY HOLDS $ 1685 


11000 


HOW MUCH WILL YOU SPEND ON SHELTER? 100 
KX AVALANCHE Xx 
Kk AVALANCHE Xx 
KX AVALANCHE xx 
KX AVALANCHE xx 
Kk AVALANCHE Xx 
KX AVALANCHE xXx 
KX AVALANCHE Xx 
KX AVALANCHE Xx 
KX AVALANCHE xx 
KX AVALANCHE Xx 
KX AVALANCHE xx 
KX AVALANCHE xx 
XxX AVALANCHE xx 


©7794 PEOPLE ARE SAFE... 
BUT 9 PEOPLI WERE KIILED... 


THERE ARE 27215 CUBIC YARDS OF SHELTER LEFT 


YEAR 12 
THE CHANCE OF AN AVALANCHE IS @& TO 1 
THE VILLAGE HAS 4209 PEOPLE 
YOU HAVE 27215 SHELTER 
THE VILLAGE TREASURY HOLDS $ 3086 
THERE ARE 9% VILLAGERS DEAD 


HOW MUCH WILL YOU SPEND ON SHELTER? 0 
KX AVALANCHE kx 
KX AVALANCHE xx 

KX AVALANCHE xx 

Kk AVALANCHE xx 

XX AVALANCHE xx 

XK AVALANCHE xx 

Xk AVALANCHE xx 
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kk AVALANCHE ¥X 
kk AVALANCHE Xx 
KX AVALANCHE x 
Kk AVALANCHE *xX 


2722 FPEOPLE ARE SAFE... 


BUT 1487 FEOFLE WERE FILLED... 


THERE ARE 24493 CUBIC YARDS OF SHELTER LEFT 


YEAR 18 
THE CHANCE OF AN AVALANCHE IS 2 0 
THE VILLAGE HAS 2444 FEOPLE 
YOU HAVE 2009S SHELTER 
THE VILLAGE TREASURY HOLDS $ S326 
THERE ARE 2525 VILLAGERS DEAD 


HOW MUCH WTI.L. YOU SPEND ON SHELTER? 
xk AVALANCHE xx 
4k AVALANCHE &x 
4k AVALANCHE xx 
Kk AVALANCHE xx 
4* AVALANCHE %«x 
4x AVALANCHE &x 
ak AVALANCHE xx 
xX AVALANCHE xx 
4k AVALANCHE *x 
XxX AVALANCHE xx 
4x AVALANCHE kx 


2O25 PEOPLE ARE SAFE... 


BUT 42°57 FPEQPLE WERE EILLED... 


ra 8) 


THERE ARE 18207 CUBIC YARDS OF SHELTER LEFT 
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You can see that if an avalanche does strike, but not enough 
people are killed to force you out of office, it becomes a little easier to 
cope with future avalanches because you have. less people who you 
must shelter. However, the villagers waste no time in adding to their 
numbers (there is little to do on winter nights except huddle under the 
bedclothes and listen for the warning rumble of an impending ava- 
lanche, so the gradual population increase is not hard to understand). 

You'll be rewarded with a statement like the following if you sur- 
vive 20 years in office: é: 


fl 7 
WELL. DONE, MAYOR GLUGENHE I MERWE 


= N 
YOU MANAGED TO SURVIVE 20 YEARS 


IN OFFICE, AND END YOUR TERM WITH: 
$ 6247 JN THE TREASURY 


1921 FPEOQFLE SURVIVING geo 


YOUR MAYORAL RATING IS A142 t 


ee : 


Y ig 


Your final “mayoral rating” (see line 300) is related to the amount 
of money you still have left in the treasury, the number of surviving 
villagers, and shelter on hand. This total is offset by the number of 
people who have been killed in avalanche falls during your term of 
office. 


LO REM AVALANCHE ! 

20 REM FOR VZ300 

30 M = RND(SOO00) + 9087 

40 F = RND(LO00) + 2278 

50 S=0:D=0:N=0 

60 FOR Y = 1 TO 20 

7O CLS 

80 IF Y= 20 THEN 240 

90 PRINT TAB(4) s "YEAR": Y 

100 PRINT!PRINT "THE CHANCE OF AN AVALANCHE 
IS":20-Ys"TO 1” 

110 PRINTSPRINT “THE VILLAGE HAS'";F; “PEOPLE” 










55 


56 


120 
HELT 
130 
$"sM 
140 
VILL 
150 
N":N 
160 
SHEL. 
170 
180 


EARS 
240 
. | 
a7) 
Y iT 
280 
290 
LTER 
SOQ 
M+20 
310 
320 
330 
340 
SOO 
260 
370 
380 
290) 
400 
410 


IF S¢>0 THEN PRINT: PRINT "YOU HAVE"3S53"°S 


ER is 
PRINT:FRINT "THE VILLAGE TREASURY HOLDS 


IF Dei >O THEN FRINT:PRINT "THERE ARE"3D;" 
AGERS DEAD" 
IF Ne +O THEN FRINT: PRINT "THERE HAVE BEE 


s "AVALANCHES" 
PRINT: INFUT “HOW MUCH WILL YOU SFEND ON 
TER":A 

IF M-ASO OR S+AcO THEN 160 

M=M—A 

S=S+INT (2. 7A) 


M=M+INT(M/10 +.5) 
IF INT CRND(1)%(20-Y))+1=1 THEN GOSUBR 320 


P = INT (P+. OSKP) 
NEXT Y 
PFRINT&:PRINT “WELL DONE, MAYOR GIWUGENHEIM 


FPRINT:PRINT "YOU MANAGED TO SURVIVE 20 Y 


PRINT "IN OFFICE, AND END YOUR TERM WITH 
PRINT:PRINT TAB(4)3"$"rM3 "IN THE TREASUR 


FRINT:PRINT TAR(4) sF3 "FEQPLE SURVIVING" 
PRINT: PRINT TAB(4)3Ss "CUBIC YARDS OF SHE 
FRINTIFRINT "YOUR MAYORAL RATING IS"; 10x 
KP+P+S - 12xD 

END 

REM XXX AVALANCHE xxx 

FOR J = 1 TO 32 

PRINT TAB(I/2)3"%k AVALANCHE xx" 

FOR E=1 TO 330 - 10kJ:NEXT E 

NEXT J 

Q=INT(S/10 + .5) 

IF @>F THEN @Q=Q-15:GOTO 380 

PRINT: PRINT @;"FEOFLE ARE SAFE..." 

X=F-() 

FLAG=O:s IF X22xP/3 THEN FLAG=1 





420 IF X20 THEN FRINT:FPRINT "BUT"3 X3; "PEOPLE 
WERE KILLED..." 

4230 D=D+xX 

440 F=0) 

450 S=S-INT(S/10 + .5) 

460 PRINT: PRINT "THERE ARE"3S; "CUBIC YARDS O 


F SHELTER LEFT" 
470 FOR E=1 TO 3000:NEXT E 
480 IF FLAG=1 THEN 5o0o 
49O RETURN 
JOO PRINT: PRINT 
o10 PRINT "THE LOSS OF HUMAN LIFE WAS" 
320 FRINT "CATASTROPHIC... YOU HAVE" 
oo0 FRINT "BEEN FORCED TO STEF DOWN" 
J40O PRINT "FROM THE OFFICE OF MAYOR" 
350 END 
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| |\CHAIRMAN OF 
THE BOARD 


Finally in this section we have our major simulation, CHAIRMAN 
OF THE BOARD. 

Again the program is largely self-prompting. The aim of the 
game is to keep your factory running until you manage to make 
$10,000 (in total, combining the value of stock in hand plus your capi- 
tal). You have to deal with recalcitrant unions (who won’t always let 
you fire the people you wish to get rid of, and have a great appetite 
for pay raises which you cannot deny), with workers who will hardly 
ever meet the production targets you set, and raw material suppliers 
who enjoy putting their prices up as much as the unions enjoy slug- 
ging you for more pay. 

You'll find, in contrast to the other two programs, which are only 
very vague approximations to “real life,” that the life and health of 
your factory will become very important to you, and you'll certainly 
learn ways of manipulating resources for maximum return. Keep in 
mind that although you have great freedom in setting the retail price 
of your products, each rise in price will increase consumer resistance 
to purchasing those products. 
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190 
20 
oO 
40 
WO 
60 
7O 
80 
90 


And now you can satisfy your corporate ambitions with this 
listing: 


REM CHAIRMAN OF THE BOARD 
GOSUB 1670:REM INITIALISE 
WE=WE+ 1 

GOSUB 930:REM REPORT 
GOSUB 1300:REM STAFF 
GOSUB 930:REM REPORT 
GOSUB 1130:REM FRODUCTION 
GOSUB 930:REM REPORT 
GOSUB 730:REM SALES 


100 
110 
120 
130 
140 
139 
160 
170 
180 
190 
200 
210 
ae 
aol) 
240 
wt) 
260) 
2/0 
230) 
290 
300 
3190 
S20 
mICTO) 
340 
SSO 
360 
370 
380 
390 
400 


410 
60 


GOSUB 140:REM FROBLEMS 
CA=CA-WAXWO-RC 

GOTO 30 

REM XX KKKKKK 

REM PROBLEMS 

CLs 

IF RND(O)<.45 THEN 260 

A=RND (7) 

PRINT:PRINT: PRINT 

PRINT “THE UNIONS ARE DEMANDING 4" 
PRINT "PAY RISE OF"A"Z" 

WA=INT (100% (WA+WAKA/ 100) ) /100 

GOSUB 1840 

PRINT:FRINT "FAY PER EMPLOYEE IS NOW $"WA 
GOSUEB 19840 

CLS 

IF RND(O)<.81 THEN 410 

PRINT: PRINT: FRINT 

PRINT "A FIRE IN YOUR WAREHOUSE HAS” 
PRINT “DESTROYED SOME STOCK. PLEASE” 
PRINT “STAND BY FOR A REFORT ON" 
PRINT "THE DAMAGE CAUSED..." 

GOSUB 1840 

A=RND (ST/2) 

ST=ST-A 

FRINT:FRINT "THERE WERE"A; AS 

PRINT "DESTROYED. THEY WERE " 

PRINT "WORTH $"AXSP"RETAIL" 

GOSUB i840 

PRINT "STOCK IN HAND IS" 

PRINT "NOW'ST;A% 

IF RND(O)>.3 THEN 560 


420 
430 
44Q 
450 
460 
470 
480 
490 
sao 
510 
eC) 
Sat) 
SAC 
pate @) 
=t-10) 
570 
580 
590 
600 
610 
620) 
630) 
640 
690 
660 
670 
680 
490 
7Q0 
710 
720 
730 
740 
7350 
760 
770 
780 
790 
BOO 
810 
820 
830 
840 


CLS 
PRINT: FRINT 
PRINT "YOUR MAIN SUPPLIER HAS ANNOUNCED" 
PRINT "A DRAMATIC PRICE RISE..." 
GOSUR 1840 
A=RND (100kKC0/7) / 100 
IF A®1 THEN 470 
PRINTIPRINT' THE COST OF MAKING "AS 
FRINT "HAS RISEN EY $"A"EACH" 
GOSUB 1840 
CO = CO + A 
PRINTSPRINT "IT NOW COSTS $"CO 
PRINT “TO MAKE EACH ONE..." 
GOSUB 1840 
IF RND(O) < .65 AND MA «< SP THEN RETURN 
CLS 
FRINTs PRINT 
PRINT "YOU HAVE A CHANCE TO RAISE" 
FRINT TAH(4)3;"YOUR FRICE. YOUR" 
FRINT AS;" NOW SELL FOR $"SP 
GOSUEB 1840 
PRINT 
PRINT "WHAT FERCENTAGE INCREASE WOULD" 
INPUT "YOU LIKE TO IMPOSE";A 
RE=RE+A 
SF=INT (LOOK (SF+AKSP/100) )/100 
GOSUB 1840 
PRINTSFRINT "THE "AS" NOW SELL FOR $"SF 
GOSUH 1840 
RETURN 
REM XXXXxX 
REM SALES 
PFRINT:FRINT "YOUR TOTAL STOCK OF" 
PRINT AS" IS"ST 
GOSUR 1840 
PRINT:FRINT "FLEASE STAND EY FOR A" 
PRINT "SALES REPORT..." 
A=INT (RND (OQ) &ST/ (RE/1000) ) +1 
IF ASST THEN 790 
CLS 
PRINT: PRINT 
PRINT "THE TOTAL NUMBER OF “AS 
PRINT "SOLD IS"A 
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BSo 
B60 
B70 
860 
890 
900 
910 
920 
930 
94a 
FSO 
940 
963 


ST=ST-A 

ZA=AXSF 

PRINTSFRINT "THE INCOME FROM THAT" 

PRINT "SALE WAS $"ZA 

CA=INT (AXSPK100) /100+CA 

GOSUB 1840 

RETURN 

REM KXXXKKKKKKKKKKKKKKKKKKK 

REM REPORT TO THE CHAIRMAN 

CLS 

IF CAt+ST<1 THEN 1510:REM BANKRUPTCY 

IF CA+ST>9999 THEN PRINT "YOU" VE MADE $10000 AND 
IFCA+ST?9999THEN FPRINT"CAN NOW RETIRE..." 


970 
980 
990 


LooQ 
1010 
1020 
1030 
1940 
1045 
Loma 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 


1170 
1178 
11680 


1190 
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PRINT: PRINT "SHOP FLOOR REPORT, 
PRINT TAB(6)3; "FOR WEEK"WE 
PRINT: PRINT 


GOSUB1840:GOTO 1590 
SIR," 


"CAPITAL IN HAND IS $" 
INT (CAX100) /100 

PRINT "RUNNING COSTS ARE $"RC"A WEEK" 

PRINT:PRINT "YOUR STORES HOLD"ST;AS 

PRINT TAB (4)3"WORTH $" INT (STXSPX100) /100 

PRINT:PRINT "THEY SELL FOR $"SP" EACH" 


FRINT “AND COST $"CO"EACH TO MAKE" 
IF INKEY$< >" " THEN 10435 
FRINTSFRINT “YOUR WORKFORCE IS NOW" 


PRINT WO"STRONG, AND YOU ARE" 


PRINT “PAYING THEM $"WA"EACH" 
PRINT "THE WAGES BILL THIS WEEK IS $"WAXWO" 
FRINT:PRINT "EACH FERSON CAN MAKE"FR 


PRINT A$" A WEEE, A TOTAL" 

PRINT "OUTFUT OF "PRXWO 

RETURN 

INFUT "HOW MANY DO YOU WISH TO FRODUCE";MA 

IF MA=0 THEN RETURN 

PRINT 

IFMAXCO+CA THEN FRINT"YOU DO NOT HAVE 

ENOUGH MONEY": GOTO1130 

"YOU DO NOT HAVE 
ENOUGH PEOPLE” 


IF MASFR*WO THEN PRINT TAB(46)3"THAT MANY®: 


GOTO 1130 
"YES SIR...THE TARGET FOR WEEK"WE 
"IS"MA; As 


IF MAsFRXWO THEN PRINT 


PRINT 
PRINT 


1200 
1210 
1220 
12.30 
1240 
1250 
12460 
1270 
1280 
1290 
1300 
1310 
1320 
13350 
1340 
1350 
1340 
1370 
1380) 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
14620 


MA=INT (MA-RND (0) KMA/S) 
GOSUBR 1840 
PRINTSPRINT "THE NUMBER OF "At 
PRINT “ACTUALLY FRODUCED IN WEEK"WE 
FRINT "“WAS"MA"..." 

ST=ST+MA 

CA=CA-COxXMA 

GOSUB 1840 

XETURN 

REM XXX 

REM STAFF 

FRINT “HOW MANY FEOPLE DO YOU" 
INFUT "WISH TO HIRE":A 

WO=WO+A 

PRINT:FRINT "THE TOTAL WORKFORCE" 
PRINT "IS NOW" WO"STRONG" 

GOSUB 1840 

IF A+O THEN RETURN 

GOSUIB 9S0 

FRINT “HOW MANY PEOPLE DO YQU" 
INPUT "WISH TO FIRE"j3A 

IF A=Q THEN 1480 

IF A+WO THEN 1390 

A=RKND (A) 

GOSUBR 1840 

FRINT:PRINT "THE UNIONS WILL ALLOW" 
PRINT "YOU TO GET RID OF"A 

WO=WO-A 

GOSUB 1840 

RETURN 

REM XKXXKKKKKKKKE 

REM BOTTOM LINE! 


PRINT:PRINT "YOU? RE BANKRUPT! !"sSOUND 5,8 
GOSUB 1840 
PRINT:PRINT "OH THE SHAME OF IT!!"sSOUND 3,8 


GOSUB 1840:SOUND 1,8 
FRINT:PRINT "STILL, YOU KEPT THE BUSINESS" 


PRINT "GOING FOR"WE"WEEKS" 

GOSUB 1840 

FRINT "ENTER *Y¥* FOR ANOTHER STINT” 
PRINT "AS CHAIRMAN OF THE HBOARD...--" 
FRINT "(OR 7N’ IF YOU WANT TO QUIT)" 
AS=INKEYS 
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1630 
1640 
14650 
14560 
1470 
1690 
1700 
1710 
1720 
17.30 
1740 
1750 
1760 
17709 
1780 
1790 
1800 
1810 
1820 
18:30 
1840 
1850 
18460 
1870 
1890 
1890 
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IF ASSe"Y" AND AS$Z>"N° THEN 1620 
IF AS="Y¥" THEN RUN 
END 


REM XXKKKKKKKX 

REM INITIALISE 

FOR Z=1 TO RND(8) 

READ AS 

NEXT Z 

CA=S00+RND (S00) 

ST=100+RND (S00) 

SP=10+RND (3S) 

CO=7+RND (3) 

IF CO?SP THEN 1750 

WO=7+RND (10) 

WA=1%+RND (SF) 

PR=S+RND (6) 

RC=100+RKND (20) 

WE=0 

RE=1:REM RE IS SALES RESISTANCE FACTOR 
RETURN 

KEM DELAY SUBROUTINE 

FOR Z=1 TO S3O00:NEXT Z:RETURN 


DATA "EFONYMS", "BICYCLES", "HARMONICAS" 

DATA "KAZOQOS", "LECTERNS", "MOLESKE INS" | 
DATA "CARFETBAGS", "FITH HELMETS", "SEKYHOOKS" 
DATA "BARBELLS 


Just for Fun 
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There is a range of games in this section of your book, all designed 
just for fun. From NOUGHTS AND CROSSES, through LAS 
VEGAS HIGH, to INNER SPRING and ROBOT MINEFIELD, a 
splendid time is guaranteed for all. 
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| | INNER SPRING 


We'll start this section of the book with one of the simplest games of 
the lot, INNER SPRING. As the program explains, the computer pro- 
duces two numbers between one and 13, and asks you to bet on the 
probability of the next number it thinks of lying between the first two. 
It’s simple to play, and a lot of fun. 

Here’s what one round looks like in action: 


MY FIRST NUMBER IS 2 
MY SECOND IS 4 

YOU HAVE $ 2 

HOW MUCH DO YOU BET 

MY NEXT NUMBER LIES 

BETWEEN 2 AND 4% 2? 1 


MY NUMBER WAS 3 
WELL DONE, YOU WIN $ 2 





And here’s the listing of INNER SPRING: 


10 REM INNER SPRING 

20 GOSUB 330 

30 GOSUB 80 

40 IF Dei THEN GOTO 420 

45 IF D?+1000 THEN 330 

20 GOSUB 340 

60 GOTO 30 

70 REM XXKKKKKKKKKKKK KK KEK KKK 
BO PRINT: PRINTs PRINT 

90 FRINT "MY FIRST NUMBER I[S"A 
100 PRINT “ MY SECOND I5"B 
110 FRINT 

120 PRINT "YOU HAVE #"D 

130 PRINT 

140 PRINT "AND HOW MUCH DO YOU BET" 
150 PRINT "MY NEXT NUMBER LIES" 


160 FRINT “BETWEEN"A”AND"B; 
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170 
180 
190 
200 
210 
22d 
aol 
240 
“ut 
260 
270 
“BO 
270 
300 
o1Q 
20 
30 
240 
ooO 
360) 
370 
3BO 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
AQQ 
JOO 
YLO 
a0) 
Sot) 
v4 
Sot) 
TSO 
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INFUT E 
IF ED THEN 170 
D=D-E 
GOSUB S00 
FRINT:FRINT "MY NUMBER WAS"C 
GOSUB S00 
IF NOT (C>A AND C¢<B OR Cec A AND CoH) THEN 290 
PRINT “WELL DONE, YOU WIN $"2XxXE 
D=D+S3xXxE 
GOSUB S00 
RETURN 
REM XKXKKKKKKKKKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK 
PRINT "SORRY, YOU LOSE $"E 
GOSUB Soo 
RETURN 
REM XXKKXKKKKKKKKKKKKKKKKKKKAK KKK KKK KA KKK KKKKKKE 
D=20 
CLS 
A=RND (13 
BR=RND (13) 
IF ABS(A-B) <2 OR ABS (A-B)?6& THEN 360 
C=RND (13) 
IF A=C OR B=C THEN S8o 
RETURN 
REM XXKXKXKKKKK KKK KKKKK KKK KKK KKK KKK KKK KKK KKKKKKSK 
PRINT 
FRINT "THE GAME IS OVER":GOSUB S500 
PRINT 
PRINT “YOU ARE BROKE!" 
PRINT 
PRINT “THANKS FOR THE GAME" 
END 
REM KXKKKKKKKKKKKKKK KKK KOK KKK KR KKK KKK KKK KKK 
FOR Z=1 TO 1000 
NEXT Z 
RETURN 
FRINT:sPRINT "CONGRATULATIONS! " 
PRINT "YOU HAVE REACHED ¢"D 
SOUND 21,4:SOUND 16,2:SOUND 16,1:SOUND 18,4 
SOUND 0,1:SOUND 20,4:SOUND 21,4:END 


| | TUTANKHAMEN’S 
TOMB 


Tutankhamen was pharaoh of the 18th Dynasty of Egypt, around 
1360 B.C. He became king at the age of 11. The reason he is so well 
known today is that his tomb, discovered by archaeologist Howard 
Carter in 1922, is the only Egyptian royal tomb to have been found in 
almost its original condition. Most of the other tombs had long been 
ransacked by thieves. 

The Curse of the Royal Tomb hit those who dared disturb its 
sanctuary after such a long time, and the Curse continues its evil work 
in our program. The game outlines the rules, and the background: 





YOU HAVE A LIMITED TIME IN WHICH 
TO FIND AN EXPLORER LOST WITHIN 
EGYFT*S GREATEST FYRAMID 


HE IS TRAFFED WITHIN THE FHAROAH?S el eee 
TOME...AND HAS ONLY A VERY SMALL AMOUNT 24ieean 


OF AIR...YOU CAN TELL APPROXIMATELY  (aRimmmeerttee Cneaicnns 
WHERE HE IS BECAUSE HE IS KNOCKING ON paapegMmeessccce 

ON THE SIDE GF THE TOME AND YOU ARE [Regen 
MAKING YOUR WAY TOWARDS THE SOUND... 


YOU CAN HEAR ENOCKING.... 


ee rts ree ee cee cee oe ce Cems tee mie wee me om Oe Cee eet ce cee ee ee ee es ee eee ee ee eee ee eee ee ee ee 


HOWEVER THE SOUND IS MUFFLED, AND 
YOU CANNOT ALWAYS TELL EXACTLY WHERE 
IT IS COMING FROM.... 
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(ee ce tt ce Gems yy emg gums gemsy gees ey ss css ee fet get ee OG ee ee ee ee ee ee ee ee 


THE KNOCKING AFPEARS TO BE COMING FROM 
AHEAD OF YOU 


YOU HAVE 20 DICK SMITH MINUTES LEFT 
YOU ARE IN A SERIES OF TUNNELS 


WITHIN THE FPYRAMID...WHICH WAY DO YOU 
WANT TO TURN (U,D,R,L,F,B)? U 





THE ENOCKING APPEARS TO BE COMING FROM 
TO THE RIGHT AND AHEAD OF YOU 


YOU HAVE 19 DICK SMITH MINUTES LEFT 
YOU ARE IN A SERIES OF TUNNELS 


WITHIN THE FYRAMID...WHICH WAY DO YOU 
WANT TO TURN (U,D,R,L,F,B)? R 


em eet ey rr cy ce et ct cy et ey ee ce ee er es ee ce ee ee ee ee eee eee ee 


THE ENOCKING APPEARS TO BE COMING FROM 
ABOVE YOU TO THE RIGHT AND AHEAD OF YOU 


YOU HAVE 17 DICK SMITH MINUTES LEFT 
YOU ARE IN A SERIES OF TUNNELS 


WITHIN THE FYRAMID...WHICH WAY DO YOU 
WANT, TO TURN (U,D,R,L,F,B)? F 


ey ery ey ee es ye es tee ey ee ee ey ey es Se ey ee es ee eee es es ey ee ee ee ee ee ey ee ee 


THE KNOCKING APPEARS TO BE COMING FROM 
ABOVE YOU AHEAD OF YOU 


YOU HAVE 16 DICK SMITH MINUTES LEFT 
YOU ARE IN A SERIES OF TUNNELS 

WITHIN THE PYRAMID...WHICH WAY DO YOU 
WANT TO TURN (U,D,R,L,F,8)? U 

YOU HAVE 4 DICK SMITH MINUTES LEFT 
YOU ARE IN A SERIES OF TUNNELS 


WITHIN THE FYRAMID...WHICH WAY DO YOU 
WANT TO TURN (U,D,R,L,F,B)? F 


ee ct ce ee ee ee ce et ey ey ee eet ee ee eee ee, ee ee ee ee ee ee ee ee ee ee 


THE KNOCKING APFEARS TO BE COMING FROM 
AHEAD OF YOU 


YOU HAVE 3 DICK SMITH MINUTES LEFT 
YOU ARE IN A SERIES OF TUNNELS 
WITHIN THE FYRAMID...WHICH WAY’ DO YOU 
WANT TO TURN (U,D,R,L.F,B)? F 


71 


You'll discover you soon become quite skillful at interpreting the 
feedback from the computer although it is—as you can see—some- 
what erratic due to the imperfect sound transmission qualities of the 
stone. Here’s the result of a successful run: 


WELL DONE.... 


YOU FOUND YOUR FRIEND WITH 
ONLY 3 MINUTES OF AIR REMAINING... 


And here’s what you see if you fail: 


THAT*S THE END OF THE ROAD... 
YOU ARE TOO LATE...YOUR FRIEND 
HAS DIED WITHIN THE PYRAMID 


THE FPHAROAH’?S TOMB HAS BECOME 
ee MIS TOME... 


When you feel brave enough to tackle the tomb (and risk being 
touched by its curse), enter the following listing, and then type RUN: 


10 REM TUTANEHAMEN’*S TOMB 

20 REM FOR VZ300 

20 A=RND (6) +4; H=RND (4) +42 C=RND (6) +4 

40 X=1:Y=1:2Z=1 

20 CLS 

60 CC=21 

7Q PRINT "YOU HAVE A LIMITED TIME IN WHICH" 
80 PRINT "TO FIND AN EXPLORER LOST WITHIN" 
90 PRINT "EGYFT’S GREATEST FYRAMID" 
LOOUPRINGS FRING 8 2325S] S =] SSS SSS 


110 FOR @=1 TO 1000:NEXT @ 

120 PRINT:FPRINT "HE IS TRAPFED WITHIN THE FH 
AROAH* S" 

130 PRINT "TOMB...AND HAS ONLY A VERY SMALL. 
AMOUNT" 


io PRINT “OF ATR...YOU CAN TELL APPROXIMATE 
ee FRINT "WHERE HE IS BECAUSE HE IS KNOCKIN 
Gar akinie "ON THE SIDE OF THE TOME AND YOU A 
a PRINT “MAKING YOUR WAY TOWARDS THE SOUND 


180 PRINT "YOU CAN HEAR ENOCKING...." 
190 PRINT:PRINT —--~--------~----------------~+ 

—~-----— "PRINT 

200 FOR @=1 TO 1000:NEXT @ 

210 PRINT:FRINT "HOWEVER THE SOUND IS MUFFLE 

D, AND" 

220 PRINT "YOU CANNOT ALWAYS TELL EXACTLY WH 

ERE" 

230 PRINT "IT IS COMING FROM...." 

240 FOR @Q=1 TO 1000:NEXT @ 

250 PRINT:PRINT "---------------------------- 
---~----- "s PRINT 

260 PRINT:PRINT "THE KNOCKING APPEARS TO BE 

COMING FROM" 

270 IF RND(10)>7 THEN 300 

280 IF X>E THEN PRINT "BELOW YOU ": 

290 IF X¢B THEN PRINT "ABOVE YOU "; 

300 IF RND(10)>7 THEN 340 

310 IF Z>C THEN PRINT "TO THE LEFT “; 

320 IF Z<C THEN PRINT "TO THE RIGHT "3; 

330 IF (X<>H OR Z<2C) AND Y<>A THEN PRINT " 
AND "; 

340 IF Y<A THEN PRINT "AHEAD OF YOU" 

350 IF Y2Q THEN PRINT "BEHIND YOU" 

360 CC=CC-1 

370 FRINT:FRINT "YOU HAVE"sCCs"DICK SMITH MI 
NUTES LEFT" 

380 FRINT:F RINT “YOU ARE IN A SERIES OF TUNN 

ELS" 

390 PRINT "WITHIN THE FYRAMID...WHICH WAY DO 
You" 

400 INPUT "WANT TO TURN (U,D,R,L,F,B) "3A8 
410 IF AS="U" THEN X=X+i:IF X210 THEN X=10 
420 IF A$="D" THEN X=X-1i:IF X¢1 THEN X=1 

430 IF AtS="R" THEN Z=Z+1:IF Z>10 THEN Z=10 


449 IF AS="L." THEN Z=Z-1:IF Z¢<1 THEN Z=1 es 
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450 
440 


IF AS="F" THEN Y=Y+is IF Y?10 THEN Y=10 
IF AS="E" THEN Y=Y-1:IF Yel THEN Y=1 

IF X=B AND C=Z AND A=Y THEN 340 

IF CCs1 THEN 240 

PRINT:PRINT "THAT*S THE END OF THE ROAD. 


PRINT “YOU ARE TOO LATE...YOQUR FRIEND" 
PRINT “HAS DIED WITHIN THE PYRAMID" 
PRINTSFRINT “THE FHAROQAH’?S TOME HAS BECO 


FRINT "...HIS TOMB..."sEND 
PRINT:PRINT “WELL DONE...." 
PRINTIFRINT "YOU FOUND YOUR FRIEND WITH" 


PRINT "ONLY"3CC; "MINUTES OF AIR REMAININ 


| | ROBOT MINEFIELD 


Time now to face the terrors, the dangers, and the horrors of the 
ROBOT MINEFIELD. There you are, peacefully tripping along one 
day in the sun, when suddenly you find yourself trapped in a walled 
area, with a number of manic robots, all bent on your destruction. 

The robots are shown on the display as dollar signs, the H is you, 
and the asterisks (*) are mines which are deadly to both you and 
robots. Robots, pretty pretty clumsily programmed, can detect you, 
but they cannot detect mines. Therefore, your salvation lies in getting 
a mine or two in between you and the robots, so that when they come 
toward you they’ll smash into mines and be wiped out. 





fa; 


The robots have one trick up their sleeves. They can merge into 
one another, so you may think only one robot is approaching you, 


=O 
a0) 
ag 
wt) 
SO 
7O 
Oa 
90) 


100 
110 
120 
130 
140 
Lao 
140 
170 


when.at the last minute it splits into two or more, one going each way 
around a mine. This is not a game for those who seek the quiet life. 

You can move north, south, east, or west (with north at the top of 
the screen), and you enter the move you want to make by entering 
the initial of the desired direction (so you enter “N” to go north, “S” to 
go south and so on). 


GOTO 250 
REM MOVE ROEOTS 
TALLY=0 
FOR E=1 TO 4 
IF ACER(E),C(E))=42 THEN TALLY=TALLY+1:GOTO 200 
X=B(E) 2 Y=C(E) 
IF ECE)<D THEN BH(E) =B(E) +4 
IF B(E)>D AND RND(10)33 THEN B(E)=B(E)-1 
IF C(E)<F AND RND(10) 23 THEN C(E)=C(E) +1 
IF C(E)>F THEN C(E)=C(E)-1 
IF R(E)<2 THEN BCE) =2 
IF BCE) 14 THEN B(E)=14 
IF C(E)<2 THEN C(E)=2 
IF CCE) 214 THEN C(E)=14 
A(X, Y)=46 
IF ACE(E),C(E))=42 THEN TALLY=TALLY+1:GOTO 200 


180 IF ACBHR(E) ,C(E))=200 THEN ACB(E),C(CE) )=228: 


190 ACKR(E) ,C CE) ) =228 

200 NEXT E 

2#lQ IF TALLY*(CH THEN TALLY=CH 
<2£0 CH=TALLY 


od 


GOSUB 300:GOTO 9710 


IF TALLY=4 THEN GOSUB 300:GOTO' 970 


240 RETURN 


a= 
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GOSUB. S20:REM INITIALISE 


260 GOSUB 300:REM PRINT MINEFIELD 
2/70 GOSUB 303;REM ROBOTS MOVE 

~80 GOSUB 420:REM HUMAN MOVE 

“79 GOTO 260 

400 REM FRINT MINEFIELD 


210 


ree 
meet at {_) 


nde 


FRINTCHRS (28) ; 
IF TALLY?0 THEN FRINT2490, "DEAD ROBOT TALLY: "TALLY 


S30 IF TALLY?0O THEN PRINT CHR (28) ; 


S50 


FOR B=1i TO 15 


360 FOR C=1 TO 15 
“70 PRINT CHRS(ACB,C))3" "3 
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BO 
SFO 
400 
AiO 
420 
Aaa 
440 
ASO 
ASS 
450 
4463 
470 
473 
480 
483 
APO 
49S 
ESOC) 
310 
ae) 
rape ©) 
sot) 
ato © 
w?Q 
wa 
610 
620 
G30 
540 
6350 
6460 
670 
4680 
690) 
7OQ 
710 
720 
730 
740 
730 
750 
770 


NEXT C 
PRINT 

NEXT B 

RETURN 

REM PLAYER MOVE 

ACD, F) =46: B¢=INKEYVS 

AgS=INKEVS 

IF A$="" THEN 440 

SOUND 1,1 

IF AS="." AND D2 THEN D=D-1 

IF AS="A" AND D>2 AND F>2 THEN D=D-1i:F=F-1 
IF AS=" " AND D¢i4 THEN D=D+1 

IF A$="S" AND D>2 AND F<14 THEN D=D-1:F=F+l 
IF Ag="," AND F¢i4 THEN F=F+1 

IF A$="X" AND D¢i4 AND F<i4 THEN D=D+1i:F=F+1 
IF A$="M" AND F322 THEN F=F-1 

IF A$="Z" AND D<14 AND F22 THEN D=D+1:F=F-1 
IF A(D,F)=42 THEN GOSUB 300:GOTO 990 
A(D,F)=200 

RETURN 

REM INITIATE 

DIM A(15,15)38(4),C(4) 

CLS 

FRINTSPRINT "FLEASE STAND BY FOR A MOMENT..." 
CH=0 

REM FLACE WALLS 

FOR H=1 TO 15 

FOR C=1 TO 15 

ACH, C)=46 

IF B=1 OR Bei5 OR C=i OR C=15 THEN A(B,C)=988 
NEXT C,H 

REM FLACE MINES 

FOR B=1 TO 20 

C=RND (15) 

D=RND (15) 

IF A(C,D)=88 THEN 490 

A(C,D)=42 

NEXT 

DATA 4,4,13,8,8,3,12,7 

REM FLACE ROBOTS 

FOR E=i TO 4 

D=RND (1%) +1 
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780 F=RND (135) +1 

790 IF A(D,F)<>46 THEN 770 

BOO B(E)=D:C(E) =F 

810 ACB(E) ,C(E) )=228 

820 NEXT E 

830 REM FLACE HUMAN 

B40 D=RND(13) +1 

850 F=RND(13) +1 

860 IF A(D,F)<>46 THEN 830 

870 A(D,F)=200 

880 CLS:RETURN 

890 REM HUMAN AT D,F 

900 REM ROBOTS AT BCE), CCE) 

910 REM END OF GAME 

920 PRINT2480," THE ROBOTS HAVE GOT YOU! !" 
925 SOUND 16,3:SOUND 146,2:SOUND 13,4:SOUND 18,2 
927 SOUND 16,5:SOUND 13,6 

930 CH=0: TALLY=0 

940 Ag="" 

950 IF INKEY&<>"" THEN 950 

960 GOSUB 3S70:GOTO 2460 

979 PRINT®D4B60," YOU’VE DEFEATED THE ROBOTS! !" 
980 GOTO 930 

9°90 FPRINT2480, " YOU’ VE RUN INTO A MINE":SOUND 1,8 


1000 GOTO 930 
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| |INOUGHTS AND 
CROSSES 


I’m sure that NOUGHTS AND CROSSES (Tic-Tac-Toe) needs no 
introduction. Here is a program which plays fairly well, but not in a 
totally predictable manner, so you stand a fair chance of winning a 
few games. 

This may not sound like a big deal. However, many NOUGHTS 
AND CROSSES programs have been written so that a draw is the 








This program decides who will go first in each game, and re- 
sponds swiftly to your moves. You move just by entering the number 
of the square into which you want to move. 

Let’s see NOUGHTS AND CROSSES in action: 


1 2-3 = == = 
45 6 = xk = 


789 7 ee ee 
79 


49 6 - xX - 

73% an ee o x oO 
45 6 - X - 
789 - - Xx 

12 3 O xX O 

435 6 = 5. = 

72.9 - O X 
lL 2 3S 0 xX OO 
435 6 = k= 
783 9 X O X 

12s (2 x QO 

435 6 O xX - 

7939 Xx QO X 
Le O xX O 
45 6 (1) xX xX 
789 X O X 

IT*S A DRAW! 
Here’s the program listing: 
20 CLS 
90 DIM A(9) 


95 FOR T=! TO 93A(T)=0:SOUND T,1:NEXT T 

100 T=RND(O) 

109 IF T>.7 THEN PRINT "I’LL HAVE THE FIRST MOVE" 
110 IF T¢=.7 THEN PRINT "YOU HAVE THE FIRST MOVE" 


115 FOR 2=1 TO 1000:NEXT:CLS 

{20 IF 1.7 THEN 180 

125 IF INKEY$<>"" THEN 125 

130 GOSUB 750 

140 GOSUB 480 

150 GOSUB 670 

160 GOSUB 750 

170 GOSUB 480 

180 IF A(S)=0 THEN A(3)=1:G0T0 130 


190 REM TO COMPLETE ROW/BLOCK 
200 D=! 

210 B=! 

220 IF B=1 THEN X 
230 JF B=2 THEN X 
240 IF B=3 THEN X= = 
250 IF B=4 THEN X= 

260 C=] 

270 TF A(X)=D AND ACY)=D AND A(Z)=0 THEN A(Z}=1:60TD 130 
280 IF A(X)=D AND A(Y)=0 AND A(Z)=D THEN ACY)=1:G60TO 130 
290 IF A(X)=0 AND A(Y)=D AND A(Z)=D THEN A(X)=1:G60T0 130 
300 IF B=} THEN X=X+33Y=Vt3s Z=Z+3 

310 IF Be2 THEN X=X+lsY=¥tlsZ=Z+! 

320 IF C¢3 THEN C=C+i:G070 270 

330 IF B¢4 THEN B=B+l:GOTO 230 

340 IF 042 THEN D=D+i:60T0 210 

550 REN MOVE AT RANDOM 

360 B=! 

5370 DINT(RND (0) 89) +1 

380 IF A(C)=0 THEN A(C)=1:G0T0 130 

390 B=Btl 

400 IF B¢21 THEN 370 

410 B=0 


420 B=Bt! 

430 IF A(B)=0 THEN A(B)=1:G0TO 130 
440 IF BC? THEN 420 

450 GOSUB 750 

460 PRINT:PRINT"IT’S A DRAW" 

470 GOTO 650 


480 REM WIN CHECK 
490 FOR B=1 TO 4 
500 IF B=1 THEN X=1:¥=23Z=3 
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510 IF B=2 THEN X=1:¥=43Z=7 

§20 IF B=3 THEN X=1: Y=: Z=9 

530 IF B=4 THEN X=3: Z=7 

340 FOR C=1 10 3 

550 IF ACX)=A(Y) AND ACY)=A(Z) AND A(X)<>0 THEN 610 
S60 IF B=! THEN X=X+3:¥=¥+3; Z=Z+3 

570 IF B=2 THEN X=X+1;¥=¥+i3Z=Z+l 

980 NEXT C 

970 NEXT B 

600 RETURN 


610 REN THE WINNER! 

620 PRINT 

630 IF A(X)=1 THEN PRINT "I’M THE WINNER!” 
640 IF A(X)=2 THEN PRINT "YOURE THE WINNER! * 
650 FOR O=1 TO 1000:NEXT 0 

660 GOTO 95 

670 REN PLAYER MOVE 

673 IF INKEY$¢>"" THEN 675 

680 PRINT @ 450,"ENTER YOUR MOVE" 

690 AS=INKEY$ 

700 IF AS<*1" OR A$>*9" THEN 690 

710 B=VAL (A$) 

720 IF A(B)<>0 THEN 490 


725 PRINT @ 450,” ° 

730 A(B)=2 

740 RETURK 
12 3s Xx - O 
45 6 - 0 Q 
789 x xXx O 


I*M THE WINNER! 


|| MADAME ZARA 
READS THE 
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How convenient. Not only do you save on “cross my palm with silver” 
coins, but the output of this program is just about as believable as the 
predictions laid on you by wandering fortune tellers. 

Madama Zara has a totally unique deck of fortune-telling cards, 
The Hartnell Arcana, which contains 36 cards. The suits are Stars, 
Stones, Shadows, Gems, Dust, and Echoes, and the individual cards 
are Anchor, Tower, Elvling, Knave, Cleric, and Sovereign. The four 
cards which are selected, and their relationship to each other, deter- 
mines the fate Madama Zara reads for you. (Actually, it doesn’t hap- 
pen like that at all, as it all depends on your wayward random 
number generator, but you don’t need to tell your friends this.) 

The program begins with a flashy display, then asks for your 
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name and birthdate, and tells you the astrological sign under which 
you were born: 


MADAME ZARA READS THE STARS.... 
KK KX KKK KK KOK KOK KK OK KX 
MADAME ZARA READS THE STARS.... 
* FOR YOU... 
* FOR YOU... 
x FOR YOU... 
x FOR YOU... 
* FOR YOU... 
k FOR YOU... 
* FOR YOU... 
* FOR YOU... 
* FOR YOU... 
* FOR YOU... 
x FOR YOU... 
* FOR YOU... 
* FOR YOU... 
* FOR YOU... 
* FOR YOU... 
* FOR YOU... 
* FOR YOU... 
x FOR YOU... 
x FOR YOU... 

* FOR YOU... 

WHAT IS YOUR NAME, MY DEAR? DICK SMITH 


WELCOME DICK SMITH, TO DAME ZARA*S HOUSE 
OF MYSTICISM...WHERE THE VEIL OVER 
THE FUTURE IS MOVED BACK... 

«.-JUST FOR A MOMENT 


PLEASE TELL ME WHEN YOU 

WERE BORN...AS NUMBERS 

THE MONTH FIRST (1 —- JANUARY TO 
12% - DECEMBER)? 7 


THANE YOU, DICK SMITH 
NOW WHAT DAY OF THE MONTH WERE YOU BORN? 24 


DICK SMITH, YOU WERE BORN UNDER 
THE SIGN OF LEO 


x 
x 
x 
x 
x 
x 
NOW I SHALL GAZE INTO THE FUTURE... 
x 
x 
x 
x 
% 
x 


I AM TURNING UF THE CARDS FROM 
THE HARTNELL ARCANA... 


oe ee 6 ee Gy eee ee ee es ee et eee ce eri ee ge ee ee eet ee ee ee ee ee ee ee ee ee 


THIS IS THE ANCHOR OF SHADOWS 


etch ee ee ee ee ee ee ee ee ee os re 0170) cp cram Geet GD De ee Ge 


Cae a I Re ee Rl ee el Tn ee A ee ee ee 


THIS IS THE TOWER QF STONES 


ee a ee ee ee one weet) ceded ee Se ee ee ee ee Cree ee es ee ee es es eet ee ee ee ee ee 


eh ey ey ec ce cy ee es pe ee ee ee ee eee ee ee ee ee ee ee 


AND THESE CARDS TELL ME... 

DOMESTIC HAFFINESS IS THREATENED 

A LETTER WILL BRING YOU STRANGE NEWS 

A LONG-AWAITED WISH IS ABOUT TO COME TRUE 


DISAPPOINTMENT IS ON ITS WAY 


Ct ce Gey eee et Se ey a ee Se ED Oy Pe cog ey ee ee eee ee ee ee ee ee ee ee 
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THANE YOU FOR CONSULTING THE 
THE WISDOM OF ZARA.... 


— — oe 
een me ee ee es ee et es es ee ee ee ee ee ee ee ee ee eee eee eee 


I WOULD LIKE TO SEE YOU 
AGAIN SOME TIME, DICK SMITH 


Here’s the program so you can go into the fortune-telling business 


for yourself: 


{0 REM MADAME VZ-ZARA READS THE CARDS 
20 GDSUB 770:COLOR 2,1:CLS 

30 PRINT:PRINT "WELCOME “;A$;", TO DAME":PRINT*ZARA’S HOUSE OF"; 
40 PRINT " MYSTICISN...°:PRINT "WHERE THE VEIL OVER THE FUTURE" 
50 PRINT "IS MOVED BACK..." 

b0 PRINT TAB(7)3",..JUST FOR A MOMENT™ 

70 FOR Y=1 TO SO0:NEXT Y 

80 PRINT:PRINT "PLEASE TELL ME WHEN YOU" 

90 PRINT "WERE BORN...AS NUKBERS" 

100 PRINT "THE MONTH FIRST (1 - JANUARY TO* 

110 INPUT °12 - DECEMBER) "sBi:IF B1<1 OR B1)12 THEN 80 

120 PRINT:PRINT "THANK YOU, ";Ad 

{30 INPUT "NOW, WHAT DAY OF THE MONTH WERE YOU BORN";B2 

140 IF B2¢1 OR B2)31 THEN 120 

150 B=1008B1+B2 

160 CLS 

170 FOR Y=1 TO 3O:PRINT TAB(Y):*8*:SOUND Y/2,1:NEXT Y 

{80 PRINT:PRINT A$;", YOU WERE BORN UNDER" 

190 PRINT "THE SIGN OF *; 

200 IF B>=10LANDB(=120GRB>={223ANDB(=123 1 THENPRINT "CAPRICORN" 
210 IF 6Y=321 AND B(=219 THEN PRINT "AQUARIUS" 

220 IF 9>=220 AND B¢=321 THEN PRINT "PISCES" 

230 IF B>=332 AND B¢=420 THEN PRINT "ARIES" 

240 IF B)=421 AND BC=521 THEN PRINT “TAURUS” 

250 IF B)=522 AND B<=621 THEN PRINT "GEMINI® 

260 IF B>=622 AND B(=723 THEN PRINT ®CANCER" 

270 IF B)=724 AND BX823 THEN PRINT "LEO" 

280 IF B>=824 AND B(=923 THEN PRINT °VIRGO" 

290 IF B)=924 AND B<=1023 THEN PRINT "LIBRA" 

300 IF B>=1024 AND B<1122 THEN PRINT "SCORPIO® 


310 IF Bo=1123 AND B¢=1222 THEN PRINT "SAGITTARIUS" 

320 FOR Y=1 TO 3O:PRINT TAB(Y)3"8"sFOR T=1 TO S5:NEXT TsNEXT Y 
530 PRINT "NOW I SHALL GAZE INTO THE FUTURE....° 

540 FOR Y=1 TQ SO:PRINT TAB(Y);"8*:FOR T=1 TO @S:NEXT T:NEXT Y 
350 PRINT “I AM TURNING UP THE CARDS FROM* 

560 PRINT “THE HARTNELL ARCANA..." 

370 FOR T=1 TO SOO:NEXT T 


580 FOR Y=1 TO 4 
390 A=RND(6)~1 


400 PRINT *~---------- 


410 PRINT "THIS IS °; 
420 IF A=0 THEN PRINT 
430 IF A=1 THEN PRINT 
440 IF A=2 THEN PRINT 
450 IF A=3 THEN PRINT 
440 IF A=4 THEN PRINT 
470 IF A=5 THEN PRINT 
480 A=RND(6) -1 

490 IF A=0 THEN PRINT 
900 IF A=! THEN PRINT 
S10 IF A=2 THEN PRINT 
920 IF A=3 THEN PRINT 
350 IF A=4 THEN PRINT 


EB eee Be Se we Se ee Se ee 


"THE ANCHOR °; 
"THE TOWER °: 
"THE ELVLING "; 
"THE KNAVE *s 
"THE CLERIC "3 
"THE SOVEREIGN *: 


"OF STARS" 
“OF STONES" 
"OF SHADOWS" 
"OF GES" 
"OF DUST’ 


940 IF A=5 THEN PRINT "OF ECHOES* 

S00 PRINT to sSeseeesesecereeassesesaa=<> 
960 FOR T=1 TO S00:NEXT T 

570 NEXT ¥ 

980 FOR T=1 TO 1000:NEXT T 

590 PRINT:PRINT "AND THESE CARDS TELL WE..." 
600 FOR T=1 TO 1000:NEXT T 

610 PRINT:PRINT AS(RND(10)) 

620 FOR T=1 TO L000:NEXT T 

630 PRINT:PRINT BS(RND(10)) 

640 FOR T=1 TO 1000:NEXT T 

690 PRINT:PRINT C$(RND(10)) 

660 FOR T=1 TO 1000:NEXT T 

670 PRINT:PRINT D$(RND(10)) 

680 FOR T=1 TO 1000:NEXT T 

B70 PRINT Ase eseasssess-s-seSsesce-s=s< ° 
700 PRINT "THANK YOU FOR CONSULTING THE" 
710 PRINT " WISDOM OF ZARA..." 
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720 FOR T=1 TO 2000:NEXT 

730 PRINT "------------~---------------- , 

740 PRINT:PRINT "I WOULD LIKE TO SEE YOU AGAIN® 
750 PRINT "SOMETIME, ‘AS 

760 END 

770 REM INITIALISE - ¥2300 VERSION 

780 DIM A${10),B6(10) ,C$(10) ,D$(10) 

790 COLOR 2,1:SOUND 12,2:SOUND 1,1:SOUND 5,2:CLS 
B00 FOR T=1 TO 10 

B10 PRINT "899929329898 8 $*:SOUND T,! 
920 PRINT "MADAME ZARA READS THE STARS.." 

B30 NEXT T 

840 FOR T=1 TO 20 

850 PRINT TAB(T):*# FOR YOU..." 

Q60 NEXT T 

870 FOR T=1 TO 1000:NEXT T 

880 INPUT "WHAT IS YOUR NAHE, MY DEAR "sA$ 
890 CLS 

900 FOR T=1 TO L0:READ A$(T):READ B$(T) 

910 READ C$(T):READ D$(T):NEXT T 

920 RETURN 

930 DATA "A SUDDEN SHOCK", *GREAT JOY IS NEAR" 
940 DATA "A PARK, AND A SPECIAL FRIENDSHIP* 

950 DATA "DISAPPOINTMENT IS ON ITS WAY" 

960 DATA "YOU ARE CLOSELY PROTECTED FROM HARK ° 


970 DATA "THERE IS A CHANCE TO STOP ILL-FEELING" 
980 DATA "GOOD FRIENDS ARE NEAR" 

790 DATA “DISTRUST THOSE WHO WOULD ADVISE YOU" 
1000 DATA “THE MOON [S IN A GOOD ASPECT FOR YOU" 

1010 DATA “SUCCESS IN SPECULATION IS LIKELY” 
1020 DATA "CONFIDE IN THOSE NEAR YOU" 

1030 DATA “SUCCESS IN ALL VENTURES IS INDICATED" 
1040 DATA "A MYSTERY WILL SOON BE SOLVED" 

1050 DATA °A LETTER WILL BRING YOU STRANGE NEWS" 


1040 DATA "GOOD LUCK WILL BE YOURS TODAY" 
1070 DATA "HIGH HONOR IS ON ITS WAY" 


1080 DATA "DOMESTIC HAPPINESS IS THREATENED" 
1070 DATA *THE CLOUDS ARE GATHERING’, "STRENGTH IS ON YOUR SIDE° 
1100 DATA “SOMEONE IS WATCHING YOU WITH LONGING" 


1110 DATA "FAMILY QUARRELS LIKELY’ 
1120 DATA *THE SUN IS RISING ON YOUR HOPES" 
1130 DATA “EVIL CONSEQUENCES MAY BE AVERTED" 


1140 DATA 
1130 DATA 
1140 DATA 
1170 DATA 
1180 DATA 
1190 DATA 
1200 DATA 
1210 DATA 
1220 DATA 
1230 DATA 
1240 DATA 
1290 DATA 
1260 DATA 
1270 DATA 
1280 DATA 
1290 DATA 


"THERE IS A CHANCE TO MAKE UP =A QUARREL* 

"YOUR STRUGGLES ARE TO BE REWARDED® 

"YOU WILL BE TREATED GENTLY TODAY" 

"A LONG-AWAITED WISH IS ABOUT TO COME TRUE" 


"SUSPICION IS FOCUSED ON YOU" 

"6000 HEALTH WILL BE YOURS* 

"FULFILLMENT OF A DREAM [S JUST AROUND THE CORNER® 
"BEAUTY COMES A-CALLING" 

"G00D TIDINGS ARE ON THEIR WAY" 

"THE CURRENT BAD SITUATION WILL NOT LAST LONG" 
"LOSS OF PROPERTY IS PROBABLE" 

"YOU GET THE CHANCE TO WARD OFF EVIL®* 
"RICHES THROUGH PROPERTY ARE INDICATED" 

"A MINOR FAILURE WILL TURN TO SUCCESS" 

"I SEE A SAFE BULGING WITH MONEY FOR YOU" 
"GOOD NEWS IS ON ITS WAY", “BEWARE OF FLATTERY® 
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| | NIMGRAB 


NIMGRAB is a game which seems easy at first, but is the very devil 
to play ... and win. You and the wily computer take turns taking 
objects away from the screen. There is a limit to how many you can 
take away each move (and this limit changes from game to game, 
although it does not change within a particular round of the game). 
The winner is the person who manages to force the other player to 
remove the last object. 
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~, ff Or 


vival 
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Once you see it in action, you'll understand how to play it. Then 
you can start working on perfecting a method of actually beating the 
computer. Here is NIMGRAB: 


10 REM NIMGRAB 

20 CLS 

30 M=O;E=0: Z=RND(8) +16 

40 IF 28INT(Z/2)=2 THEN Z=Z+! 

50 H=3+RND (2) 

60 PRINT “THE NAXINUM YOU CAN GRAB I5"H 

70 GOSUB 270 

80 IF E)0 THEN PRINT "YOU TOOK"E", AND I TOOK"G 
90 FOR K=1 10 2 


100 PRINT Ks: IF RND(10))8 THEN PRINT 
91 
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110 NEXT K 
120 BOSUB 270 

130 PRINT "AND HOW MANY WILL YOU GRAB?" 

135 PS=INKEYS 

140 E=VALCINKEYS) 

150 IF E¢1 OR EDH OR EZ THEN 140 

140 PRINT:PRINT®SO YOU WANT TO GRAB"E 

170 1=1-E 

180 GOSUB 270 

190 IF 241 THEN GOTO 320 

200 Q=T-1-INT((Z=1) /(H41)) 8 (H#1) -INT(RND (2) ) 4ENT(RND (2) ) 
210 IF Q<1 OR OH THEN 200 

220 GOSUB 270 

230 1=1-0 

240 IF 241 THEN PRINT’ GRABBED THE LAST ONE SO YOU WIN! !*":END 
250 GOSUB 270 

260 GOTO 49 

270 PRINT 

280 PRINT "SHSCOSaSeececenanececucesazas® 

290 PRINT 

300 FOR O=1 TO SOO:NEXT 0 

310 RETURN 

320 PRINT "YOU GRABBED THE LAST ONE * 

330 PRINT ,"SO I WIN!'":FOR Z=1 TO SOO:NEXT 7 

340 SOUND 16, 3:SOUND 16, 2:SOUND 13,4:SQUND 18,2:SOUND 16,5 
350 SOUND 13, 6:END 


| | LAS VEGAS HIGH 


LAS VEGAS HIGH. You need only decide how much you'll bet be- 
fore pulling the handle on the machine (which you do by pressing the 
spacebar) and the reels will whirl away. 
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Your winnings—as you'd expect—are related to the relative dif- 
ficulty of the various combinations coming up. The computer keeps 
up the chatter as the game, and your wealth (or poverty) unfold. 

Here’s the making of a million (or so): 


10 REM LAS VEGAS HIGH 

20 GOSUB 1110 REM INITIALISE 

30 GOSUB 870 :REM PLAYER INPUT 

40 GOSUB 520 :REM OPERATE SLOT MACHINE 

10 IF CASH<1 THEN 90 

60 IF CASH)2500 THEN 290 

70 60T0 30 

BO REM tees 

90 REM BROKE 

190 REM Stess 93 
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11¢ GOSUB 410 

120 PRINT "THAT’S THE END OF THE LINE,” 
130 PRINT “OH ONCE MIGHTY GAMBLER...” 
140 GOSUB 410 

150 PRINT "YOU'RE STONE, FLAT BROKE! '* 
160 GOSUB 410 

170 PRINT “PRESS ’Y’ IF YOU'D LIKE 10° 
180 PRINT “HAVE ANOTHER 60 AT BREAKING" 


200 PRINT "(OR PRESS °N’ IF YOU WISH TO"sPRINT , “LEAVE)" 
210 AS=INKEY$ 

220 IF ASC>"Y" AND AS<)"N* THEN 210 

230 IF AS="Y" THEN RUN 

240 PRINT:PRINT "OK, PUNTER..." 

2J0 GOSUB 410 

260 PRINT "THANKS FOR THE GAME!" 

270 END 

280 REN SEUSERES LTTE TS 

290 REM BROKE THE BANK 

SOO REN SESsessarsetes 

310 GOSUB 410 

S20 PRINT “WELL DONE, GAMBLER!!" 

330 GOSUB 410 

340 PRINT "YOU'VE REACHED OUR HOUSE LIMIT" 
350 PRINT "SO WE'LL HAVE TO THROW YOU OUT 
360 PRINT "PEOPLE WITH LUCK LIKE YOURS GIVE" 
380 PRINT "OUR CASINO A BAD NAME,......" 
590 GOTO 140 

400 REM 3434s 

410 REN DELAY 

420 REM teats 

430 FOR P=i TO 1000:NEXT P 

440 PRINT: PRINT 

430 RETURN 

460 REM Cageeases 

470 REN DELAY TWO 

480 REM Seaseesst 

490 FOR P=1 TO 1000:NEXT P 

300 RETURN 

DLO REN SERTECURET ATT eae Tee 

020 REM OPERATE SLOT MACHINE 

JOO REN SERTETESRTS ERTS RS 


40 CLS 
40 GOSUB 410 


550 PRINT EL POCRO DO RED AER AO LAE ODD AR DARAD AALS 


570 PRINT “ $s 
580 FOR H=1 TO 3 

590 GOSUB 440 

600 A=RND(44) 

b10 IF AC2 THEN PRINT A$(4)ssC(M) =I 

620 IF ADL AND AC THEN PRINT A$(3)3:C(M)=2 

630 IF ADS AND ACI2 THEN PRINT AS(1)ssC(M)=3 

640 IF AY11 AND AC20 THEN PRINT A$(2)5:C(M)=4 

650 IF AD19 AND AC31 THEN PRINT AS(5S)3:C(M)=5 

640 IF AD3G THEN PRINT A$(6)s3C(M)=6 

670 PRINT "$*s:SOUND 31,1 

680 NEXT H 

b90 GOSUB 410 

700 WIN=0 

710 IF CC1)#C(2)+C(3)=3 THEN 1220 

720 IF C(1)=C(2) AND C(3)=C(2) AND C(2)=2 THEN 1240 

730 IF C(1)=C(2) AND C(3)=C(2) AND COL)<>1 AND C(2)<>3 THEN 1250 
740 IF CU1)=C(2) OR CU)=C(3) OR C(2)=C(3) THEN 1260 

750 IF C(3)=2 THENPRINT'A BELL AT THE END IS A BONUS!" :WIN=WIN#. 6 
760 IF C(1)=3 AND C(3)=3 THEN PRINT"AN APPLE AT EACH END IS 00D" 
765 IF C(1)=3 AND C(3)=3 THEN WINSWIN+. 5 

770 IF C(1)=4 AND C(2)=3 AND C(1)=4 THEN GOSUB 1270: WIN=WIN+. 4 
790 GOSUB 410 

790 WIN=INT(WINSBET) 

BOO IF WINDO THEN PRINT "AND YOU'VE WON°WIN"! ":CASH=CASH#WIN 

810 IF WINSO THEN PRINT "AND YOU’VE LOST $*BET:CASH=CASH~BET 

820 GOSUB 410 

B30 IF CASH)O THEN PRINT "SO NOW YOU HAVE $*CASH 

B40 GOTO 440 

850 REN 

B40 REN teseaseesese 

870 REN PLAYER INPUT 

BGO REN seseeeggsest 

890 CLS 

900 GOSUB 410 

910 IF CASH<300 THEN PRINT "HI THERE, GAMBLER! ® 

920 IF CASH>299ANDCASH(400 THEN PRINT “YOU’RE DOING WELL TONIGHT" 
930 IF CASH)599 AND CASH(900 THEN PRINT*LADY LUCK HAS CERTAINLY"; 
935 IF CASHS99 AND CASH(900 THEN PRINT" SMILED ON YOU!” 

940 IF CASH)899 AND CASH(1200 THEN PRINT "THE FATES ARE BEING"s 


rv) 
J 
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945 IF CASH)899 AND CASH(1200 THEN PRINT “ EXTREMELY KIND" 
950 IFCASH)1199 THENPRINT°IT IS SO GOOD TO SEE AN EXPERT AT WORK” 
940 BOSUB 470 

970 PRINT:PRINT “YOU HAVE $*CASH 

980 PRINT: INPUT "HOW MUCH DO YOU WANT TO BET"; BET 

990 IF BET)CASH THEN PRINT "YOU AIN’T GOT THAT MUCH!*:GOTO 980 
1000 GOSUB 410 

1010 PRINT “OK, SIR, $"BET*IT IS!" 

1020 GOSUB 410 

1030 PRINT "PRESS THE SPACE BAR TO PLAY" 

1040 IF INKEY$<>* " THEN 1040 

1050 FOR T=1 10 40 

1060 PRINT TAB(T/2):*8eteess STAND BY sgesesse 

1070 PRINT 

1080 NEXT T 

1090 RETURN 

1110 REM INITIALISE 

1130 CLS 

1140 DIM A$(b),C(4) 

1150 CASH=250 

1160 FOR B=1 10 6 

1170 READ AS(B) 

1180 NEXT B 

1190 RETURN 

1200 DATA "SAPPLES$", *#CHERRYS", "$BELL8", "! BAR! !* 

1210 DATA ‘<<LEMON)>*, *CCPLUMII* 

1220 PRINT’THREE BARS!!! "sGOSUB410:PRINT*THAT’S JACKPOT STYLE! !" 
1230 WIN=WIN+9360T0 750 

1240 PRINT “THREE BELLS!!!*:WIN=WIN#3, 9:60T0 750 

1250 PRINT "THREE OF A KIND*:WIN=WIN#3,5:G0T0 750 

1260 PRINT ">> A PAIR <C*:WIN=WIN+.7:60T0 750 

1270 PRINT "THAT OLD "CHERRY, BELL, CHERRY’ ® 

1280 PRINT "CONBINATION IS ONE OF NY FAVORITES! ":RETURN 


| | ROULETTE 


ROULETTE is the king of gambling games. This computer version, 
which faithfully follows the rules of roulette, will allow you to 
painlessly test your favorite “system.” 

This game plays with an American wheel, which has the numbers 
0 to 36, plus double zero. The program speaks faultless French, as do 
all good croupiers, inviting you to place your bet with the words 
MESSIEURS, FAITES VOS JEUX (Gentlemen, place your bets). 
Note that the difference between the European and American wheels 
is stepdad at the end of this introduction. 
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Some of the numbers on a roulette wheel are red and the balance 
are black. Among other bets, you can bet on the ball stopping on any 
red number, or any black one. 

After the computer has told you how many chips you have, and 
asked you to place your bets, you'll be expected to enter a letter be- 
tween A and Q. Q tells the computer you wish to quit (withdraw from 
the game), and the other letters determine which kind of bet you wish 
to place, according to this key: 

A—a single number 

B—two adjoining numbers 

C—three numbers in adjoining columns 

D—six numbers in adjoining columns 

E—four numbers in a square 

F—numbers 1 through 12 (“The First Twelve”) 

G—numbers 13 through 24 (“The Second Twelve’) 

H—numbers 25 through 36 (“The Third Twelve”) 

I—numbers 1 through 18 (“Low”) 

J—numbers 19 through 36 (“High”) 

K—12 numbers in a horizontal row 

L—two adjacent horizontal columns 

M—any red number 

N—any black number 

O—any even number 

P—any odd number 


Q—to quit the game 
The red numbers are: 


1, 3, 5, 7, 9, 12, 14, 16, 18, 19, 21, 23, 25, 
27, 30, 32, 34, 36, 


The black numbers are: 


2, 4, 6, 8, 10, 11, 13, 15, 417, 20, 22, 24, 26, 
28, 29, 31, 33, 35 


Here’s what a roulette table looks like: 


NOIR PAIR PASSE 
34r 31b 28r 25r 22b 19r 16r 13b 10b 7r 4b Ir O 
35b 32r 29b 26b 23r 20b 17b 14r 11b 8b 5r 2b 
36r 33b 30r 27r 24b 21r 18r 15b 12r Or 6b 3r O00 
ROUGE IMPAIR MANQUE 


As you can see, the table has three words above, and three below, the 
numbers. These are noir (black), pair (even), passe (numbers 19 
through 36), rouge (red), impair (odd) and manque (numbers 1 
through 18). 


A European roulette table has the numbers 1 through 36, plus 
zero, while the American table has a double zero as well. It comes as 
quite a shock to innocent folk like me to discover that while the house 


take on all bets on the European wheel is 2.70% on all bets (except 
the even money chances, where it drops to 1.4%), the house take on 
the US wheel is almost doubled to 5.26%. Our wheel, as you know, 
follows the US system. 

Here’s the program in action: 


AT THE VZ300 ROULETTE WHEEL... 
»«eYOQU HAVE 1000 CHIPS 


KHS XHS KHDS KHS SHE SHK HEHE GH 


MESSTEURS, FAITES VOS JEUX (A —- @) 
7M 


HOW MANY CHIPS? 408 

MHS KHS KHS KHS SHE SHE SEK SHK 
THE WHEEL IS SPINNING... 

MHS KHD XKH#G KHS DHE HHK SHK SHK 


rr 
2 


OO 


Ch 


bh 
hl 


a1 


hd 
BJ 


11 


<7 


KH#S KHGD KHS KHDS SHK DSH SHE SHX 
THE BALL STOPPED ON 27 


CONGRATULATIONS, YOU HAVE WON 408 CHIFS 


KES KEG KS KHD SHK DPHK HHX BH 


AT THE VZ300 ROULETTE WHEEL... 
~».«YOU HAVE 1408 CHIFS 


KHS KHS KHDS KHS BHK SHK GHK SHH 


MESSTIEURS, FAITES VOS JEUX (A —- QQ) 
?° E 


HOW MANY CHIPS? 290 
FIRST NUMBER IN SQUARE’? 15 


K#S XD KES KHD BHK GHK HHE HHX 
THE WHEEL IS SFINNING... 


KEG KES CHB KHH SHAK HH SHE HHK 


2 
4 


bJ 
~ 


—_ 
ot fl 


19 
14 
14 
19 


“20 


10 


21 


4 

KHB KHD KHD KHGD SHE HHK SHE HH 

THE BALL STOFPED ON 4 

SORRY, BUT YOU LOST ON THAT ROUND... 


KES KES KES KHS SHK SHK BHK BHX 


AT THE VZ200 ROULETTE WHEEL... 
eo» 2 YQOU HAVE 11198 CHIFS 


KES XH KH KHS SHK GHHK GHK H$HK 


MESSTEURS, FAITES VOS JEUX (A — @) 
YJ 


HOW MANY CHIFSY 1118 
KES KES KGS KS BHK SHE SHA SHH 
THE WHEEL IS SPINNING... 


KHS KHS KHD KH SH SHK SHAK SHX 


G 
13 
24 
4 
34 
10 
11 
4 
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fe 


b 
Ch 


hr 
cS 


Ch 


KH#6 XHD KHD KHG SHE SHK SHK BHK 
THE BALL STOPPED ON &S 
SORRY, BUT YOU LOST ON THAT ROUND... 


K#E XHD KES KHDS GSHK SHK SHX GH 
YOU HAVE LOST! 
YOU HAVE LOST! 
YOU HAVE LOST! 
YOU HAVE LOST! 
YOU HAVE LOST! 
YOU HAVE LOST! 
YOU HAVE LOST! 
YOU HAVE LOST! 
YOU HAVE LOST! 
YOU HAVE LOST! 
YOU HAVE LOST! 
YOU HAVE LOST! 
YOU HAVE LOST! 
YOU HAVE LOST! 
YOU HAVE LOST! 


KES KHD KES KHG SHK HHK BHK HH 


YOU HAVE RUN OUT OF CHIPS! 


And here’s the listing, so you can FAIT your own JEUX: 


10 REM VZ ROULETTE 

20 DIM B(24) :CH=1000 

30 CLS:PRINT:PRINT "AT THE VZ300 ROULETTE WH 
EEL. = &8 my 

40 FRINT TABC3)3s"..-YOU HAVE":CHs "CHIFS":GOS 
UB 1010 


102 


SO FRINT:PRINT"  MESSIEURS, FAITES 
VOS JEUX (QA - @)" 
60 INPUT AS:IF AS="" THEN 40 
70 A=ASC (A#)-64: IF AC1 OR A*17 THEN 40 
80 IF A=17 THEN 840 
90 FOR @=1 TO 24:8(Q)=-99:NEXT @:SOUND 4,1 
100 PRINT: INPUT " HOW MANY CHIPS":N 
110 IF N>i THEN 120 
115 PRINT "I CANNOT ACCEPT THAT BET!" 
:GOSUB 1010:GOTO 100 
120 IF N<=CH THEN 130 
25 PRINT "YOU DON?T HAVE THAT MANY! ":GOTO 100 
130 CH=CH-N 
140 IF @A=1 THEN GOSUB 590 
150 IF A=2 THEN GOSUB 400 
140 IF A=3 THEN GOSUB 410 
170 IF A=4 THEN GOSUB 630 
180 IF A=S THEN GOSUB 450 
190 IF A=6 THEN GOSUB 670 
200 IF A=7 THEN GOSUE 480 
210 IF A=8 THEN GOSUB 690 
220 IF A=9 THEN GOSUB 700 
230 IF A=10 THEN GOSUB 710 
240 IF A=11 THEN GOSUB 720 
250 IF A=12 THEN GOSUB 740 
240 IF A=i3 THEN GOSUB 790 
270 IF A=14 THEN GOSUB 810 
280 IF A=15 THEN GOSUB 840 
290 IF A=16 THEN GOSUB @So 
300 GOSUB 1010 
ZO REM OOOO IOI OIOIGIOK 
320 REM * THE WHEEL SPINS x 
220 GOSUB 1010:FOR B=1 TO SO:C=RND(39)-2 
<PRINT TAB(RND(24))s 
340 IF C=-1 THEN PRINT " 00":GOTO 350 
345 PRINT C 
350 FOR T=1 TO B:NEXT T:SOUND B/3,1:NEXT B:GOSUB 1010 
420 PRINT "THE BALL STOPPED ON": 
430 IF C=-1 THEN PRINT "DOUBLE ZERO":GOTO 450 
440 PRINT C 
450 Y=O:E=1 
460 IF B(E)=C THEN Y=1:GOTO 480 
470 IF E<24 THEN E=E+1:GOTO 440 
480 IF Y=0 THEN 520 
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490 


BOQ 


WI=INT (ODXKXN+. 5S) : CH=CH+WI+N 
FRINT:FPRINT “CONGRATULATIONS, YOU 
HAVE WON" sWIs "CHIFS" 
GOTO S30 
PRINT "SORRY, BUT YOU LOST ON THAT ROUND" 
GOSUB 1010:FOR Z=1 TO 1000:NEXT Z 
IF CHe1 THEN 890:REM BROKE 
IF CH?2000 THEN 960:REM BROKE THE BANK. 
GOTO 30 
REM XXX KKK KK KK KKK KKK KKK 
REM *x FLACING THE BETS xXx 
INFUT "WHICH NUMBER":8(1):O0D=35: RETURN 
INFUT “WHICH TWO NUMBERS"3B8¢(1),8¢2) sOD=17: RETURN 
INFUT "WHICH NUMBER IN LEFT COLUMN":;D 
FOR E=0 TO 2:8 (E+1) =DtE: NEXT EF: 0D=11: RETURN 
INFUT “FIRST NUMBER OF SIX"sD:FOR E=0 TO 5 
cR(E+1)=D+EsNEXT E 
OD=S: RETURN 
INPUT "FIRST NUMBER IN SQUARE";D:FOR E=0 TO 3 
sBCE+1)=D+E 
IF E=2 THEN D=D+1 
NEXT E:0D=8: RETURN 
FOR E=1 TO 12:B(E)=E:NEXT E:0D=2: RETURN 
FOR E=i TO 12: B8(E)=E+i2:NEXT €:0D=2:RETURN 
FOR E=1 TO 235:8(E) =E+24:NEXT E:0D=2:RETURN 
FOR E=1 10 16: 8¢(E)=EsNExXT E: O0D=1:RETURN 
FOR E=1 TO 18:8(6&)=E+18:NEXT E:0D=1: RETURN 
INPUT "LOW NUMBER AT END OF LINE":D 
FOR E=0 TO 11:B¢(6+1)=3xkE+D: NEXT &:0D=2: RETURN 
INFUT "LOW NUMBER FIRST COLUMN":D1 
INFUT "LOW NUMBER SECOND COLUMN": D2 
IF ABS (D1-D2)>1 THEN 740 
FOR E=0 TO li: BCE+1) =3SxE+D1: BH (E4135) =S3kE+D2:NEXT E 
OD=.5: RETURN 
RESTORE 
FOR E=1 TO 16:READ BCE) NEXT EF: 0D=-1: RETURN 
RESTORE 
FOR E=1 TO 18:READ Z:NEXT E 
FOR E=1 TO 18:READ BC(E):tNEXT E:OD=1: RETURN 
FOR E=2 TO 26 STEP 22: 8B (E/2)=E2eNEXT Es OD=1!:RETURN 
FOR E=1 TO 35 STEP 2: B((E+1)/2)=E:NEXT E 
:0D=1:RETURN 
PRINTSFRINT "YOU ARE WITHDRAWING FROM THE" 


870 
ABO 
890 


P20 
940 


1O0O 
1010 
1020 
1040 


10350 


PRINT "GAME WITH";CHs "CHIFS” 
SOUND 2,1:SQUND 20, 1:sEND 
FOR J=1 TO ios: PRINT TAB(J)s "YOU HAVE LOST!" 


sSOUND J,1:NEXT J 


GOSUB 1010:PRINT "YOU HAVE RUN OUT OF CHIPS! ":END 
FOR J=1 TO 9:FRINT TAB(CI/2)3 "YOU HAVE 


BROKEN THE BANK! '"': NEXT 
END 
FRINT “ X#®& KD XHG KH KES KHG KHS" 
FOR K=1 TO 400:NEXT KE: RETURN 
DATA Ls Seely 9 9. l2, 14, 16, 16, 19,221,254. 25; 
27, 30,32, 34,36 
DATA 244,6,8,10,11,13,15,17, 20, 22, 24, 24, 


“8,29, 31. i Sn 
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Fun with your Printer 
| |CELESTIA 


The first of the two programs in this section is CELESTIA, which you 
can run either on your TV screen, or on the screen and to the printer 
at the same time. It produces an infinite series of evolving patterns. 

The patterns develop according to the rules of the famous com- 
puter game of LIFE, developed by John Conway while at Gonville 
and Caius College at Cambridge in the UK. Martin Gardiner spread 
the game throughout the world when he wrote about in Scientific 
American in October, 1970. 





In LIFE, cells are born, grow and die according to rules which 
Conway invented. Each cell on a grid (the colony of cells is imagined 
to be evolving on a grid) is surrounded by eight others, and the state 
of those eight other cells dictates what happens to the cell in question 
in the following generation. 
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The rules which govern the evolution of the cells are as follows: 


¢ If a cell has two or three surrounding it, it survives to the next 
generation 


e If there are three, and just three, full cells next to an empty 
one, a cell will be “born” in that empty space in the next gener- 
ation 


¢ Any cell with four of its neighboring cells occupied dies in the 
next generation 


Don’t worry, you don’t have to know the rules, as the computer 
interprets them quite happily by itself. The rules produce patterns 
which are far more attractive (and far less predictable) than you could 
possibly imagine by reading the rules. There is just one extra twist in 
this program, which makes it even more effective. CELESTIA actu- 
ally prints out four colonies each time a colony evolves. The original 
colony is in one quadrant of the screen, and the other three quarters 
of the screen contain reflections of the original one. 


CELESTIA is incredibly effective, as you can see: 


x x Xx x 
x x x x 
KKXKK XK Xk KKKXX 
K XX KK x 
KX K KKKKKXK K K X 
K Xx x KKK KKK x x x 
K x XK X K XK Xx xx K XxX 
K XX xx x 
K XX KK x 
K xX Kx K KK xX x X K x 
x Xx x KKK KKX xX K Xx 
KK K XKKKKK k K X 
Kk XX KK xX 
KXKK K kK KKKX 
x x xX 
x K XxX x 


ee et ee ee ce ee ee ee ey ee ee ee ee ee ee ee ee eee eee eee ee ee ee 


KK XKKK X KK XX K KKKK KX 
K XKKK X KX K KKKK X 
KK KK KKKKKK KK KX KKKKKK KK KX 
KK KKKKKKKKKK K KKK K KKKKKKKKKK KX 
K KK XxX x x xX x K XK X 
x x KKK xX XK X x x 
KEK KKK KK KKK RRK KK RKKKKKKKKKKK KX 
KK K KKK K KKK KKK K KKK K K XK 
KX kK KKK RK KKK KKK K KKK K kK X 
KKK KKKKKKKKKKKK KK KKKKKKKKKKKK KKK 
K x xe K KM K X x x 
kK XK X x K Xx x kK XK xX 
KK KKKKKKKKKK K KKKK K KKKKKKKKKK KX 
KK KK KKKKXX K XXX KKKKKK KK KX 
K KKKK xX KX K KKKK X 
KK KKKK X KK XX K XKKK XX 


ee he er ee em eh ce ey ee ee eed ey ee ey ee ee ee es ee Ge Gee) Oe ee 


x KKX K XxX KKK x 
x X K XK X x x 
K Xx Kk OX 
XX XK X 
x KKK X kK Xx K KKX x 
x x KX XK K XKKK X K XX x x 
x xX XxX K XK X x K Kk XxX 
K KKXXK Xx Kk XxX x KEKK X 
K XXKX X K xX XK KKXK X 
K K xX Ls KX x K XK X 
x XK KK X K KKKK XK KXX x x 
X KKK X x XxX K KKX x 
KX KX 
x x Kk XxX 
x X K XK X x x 


es Se Oe Gey ey ey et ee GS Gee SD eee Oe ee ey ee et es ee Oe ee ee eee 
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This is the listing to give CELESTIA designs on your microcom- 


puter: 


10 

20) 

i @) 

4q0 

JQ) 

60 

80 

90 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200) 
210 
oe 

2a) 
240 
2) 
260 
270 
=<8O 
2970 
OC) 
210 
320 
350 
240 
35O0 
360 
270 
380 
390 
400 
410 


REM CELESTIA 
GOSUE 450:REM INITIALISE 
GOSUB 60 :REM PRINT OUT 
GOSUB 280:REM EVOLVE 
GOTO 30 
CLS 
FOR X=2 TO 9 
FOR Y=2 TO 19 
PRINT CHRS(A(X,Y))3 
NEXT Y 
FOR Y=19 TO 2 STEP -i 
PRINT CHRS(ACX,Y))3 
NEXT Y 
PRINT 
NEXT X 
FOR X=9 TO 2 STEF -1 
FOR Y=2 TO 19 
PRINT CHRS(ACX,Y)) 3 
NEXT Y 
FOR Y=19 TO 2 STEF -i 
PRINT CHRS(A(X,Y)): 
NEXT Y 
PRINT 
NEXT X 
IF N=0O THEN 640 
RETURN 
FOR X=2 TO 9:FOR Y=2 TO 19 
=() 
TF ACX-1,Y-1)=B THEN C=C+1 
IF ACX-1,Y)=B THEN C=C+1 
IF AC(X-1,Y+1)=B THEN C=C+1 
IF ACX,Y-1)=B THEN C=C+1 
IF A(X, Y+1)=B THEN C=C+1 
IF ACX+1,Y-1)=B THEN C=Ctil 
IF ACX+1,VY)=B THEN C=C+1 
IF A(X+1,Y+1)=B THEN C=C+1 
IF ACX,Y)=B AND C<>3 AND Cee2 THEN B(X,Y)=E 
IF A(X, Y)=E AND C=S THEN 5(X,Y)=8 
NEXT Y,X 
FOR x=2 TO 9:FOR Y=2 TO 19 


420 
0 
440 
4350 
460 
470 


ABO 
ADO 
awe @ 
at) 
SQ) 
a4 
verbal @ 
wa 
y/70) 
rali={¥) 
390 
aie 1@) 
10 
620 
H30 
640 
G45 
550 
S60 
670 
HBO 
SFO 
FOO 
71Q0 
72d 
7a 
740 
Feul@) 
76 
77D 
780 
790 
800 
B1O 
2) 
B30 
B40 
B50 


W(X, Y) =B (X,Y) 

NEXT Y,X 

RETURN 

REM INITIALISE 

CLS 

FRINT "PRESS THE SPACE BAR":FRINT"WHEN YOU? RE 

ee READY TO BEGIN" 


IF INKEY$<> " " THEN 490 
PRINT "DO YOU WANT A COPY ON" 
FRINT “YOUR FRINTER (Y OR N)" 
AS=INKEYS:IF AS<¢> "N" AND AS<> "Y" THEN S330 
IF AS="Y" THEN N&O 

CLS 

B=ASC("*") sE=ASC(" ") 

DIM AC10, 20) ,B(10, 20) 

FOR X=2 TO 9:FOR Y=2 TO 19 
A(X, Y) 5E 

IF RND(O)>.45 THEN A(X, Y)=E 
HOX,Y)=A(X, Y) 

NEXT Y,X 

RETURN 

LFRINT " HH " 
REM 5 SFACES, 34 -"S 
LFRINT:LERINT:LPRINT ” i 
FOR x=2 TO 9 

FOR Y=2 TO 19 

LPRINT CHRS(A(X,Y))3 

NEXT Y 

FOR Y=19 TO 2 STEF -1 

LPRINT CHRS(ACX,Y))$ 


NEXT Y 

LFRINT:LFRINT " a 
NEXT xX 

FOR X=9 TO 2 STEP -1 


FOR Y=2 TO 19 
LFRINT CHRS(A(X,Y))3 

NEXT Y 

FOR Y=19 TO 2 STEF ~1i 

LPRINT CHR$(A(X,Y))3 

NEXT Y 

LFRINT:LFRINT “ oF 

NEXT X 

LFRINT 

RETURN 111 
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DDDDDDD 


| | BILLBOARD 


BILLBOARD, as you can see from the following sample run, takes a 
message of any length (up to the maximum string length permitted by 
your system) and turns it into a printed message down the side of your 
printer paper. The printed letters can then be used to decorate your 
walls, cut up to form posters, or used however your imagination dic- 
tates. 

You don’t need any further instructions to get great results like 
these: 


Bee & & pe Hs © Meroe YNnn 
Ee Hs He 8 ~ 
e 3 Heo | Y 
E+ ja Ere Os OBC ORES B} — Qn WY 
e pe oy Ha | YY 
Ee He — = “ Y 
ry — Ke rte nN 
HHH nnn = a > po 
eH > ey >> ot > 
H = >>) > > > 
rH 1” = is as > 
mH = = > 
e “ v) = = > 
eH He Onn Ss = 4 
= - NNN NN 
= = N 
> > N 
>= > N 
= N 
= = 
> NNNNN 
fx. fey fea fay fas fe om oO0°0 = = 
fx or; aw oe) oO >> > > 
fr, [a= aS Oo co) >> = = 
Fr. fx, faa fs mm A mm ro) o =: = #6 S$ 
fx, fa = fe = ‘o) © >> a 
fx, pr fa ro) oO = 
fx, fs of fa ag O00 >> >> 
AAA “OY WY MmMmWh 
AQ wv ep} fx 
Q iQ 
jan) ww” W) Mh & 
A Y) fx 
A we ” yn @e® fs _ ve 
AAA a ww “hw WY aS @ MA we a @ 
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This is the listing for BILLBOARD: 


10 REN BILLBOARD 

20 REM 

30 CLS 

40 INPUT"ENTER YOUR MESSAGE";AS$ 

SO B=LEN (AS) 

60 FOR C=1 TO B 

79 D=ASC (MIDS (AS, C) )—-64 

80 IF D=-18 THEN GOSUB 410:G60T0O 1230:REM FERIOD(.) 

90 IF D=-31 THEN GOSUB 420:GOTO 130:REM EXCLAMATION(') 

100 IF D=-32 THEN GOSUB 430:GOTO 130:REM SPACE 

110 IF Dei OR Dt26 THEN GOSUB 1000:REM SFECIAL. 

120 GOSUB Seo 

130 LPRINT:NEXT C 

140 END 

150 LFRINT"AAAAA": LFRINT" A A':LFRINT" A A": 
LFRINT" A A" 

155 LPRINT"AAAAA": RETURN 

1460 LPRINT"BRERBRBR":LPRINT"R EF EB":LPRINT"BR F&F BR" 

165 LPRINT" BB BB" sRETURN 


170 LPRINT " CCCCC":LPRINT "C C'sLFRINT'C Cc" 
175 LPRINT "C C'sLPRINT " C C": RETURN 

180 LFRINT"DDDDDDD":LPRINT"D D":LFRINT"D I)" 

185 LPRINT"D D':LPRINT" DDDDD": RETURN 

190 LPRINT“EEEEEEE":LPRINT"E E E"“sLPRINT"E E E" 

195 LPRINT"E E's: RETURN 

200 LPRINT"FFFFFFF":LPRINT" F FY’SLRPRINT" P43 
205 LPRINT" F F{"'’:LPRINT" F's RETURN 

210 LFPRINT" GGGGG":LFRINT"G 3" sLFRINT'G (" 


<15 LPRINT'"G G G":LPRINT" GG G":RETURN 
220 LPRINT"HHHHHHH":LPRINT" H"’:LFRINT" H's 
LFRINT" Hq" 
220 LPRINT"HHHHHHH" : RETURN 
=350 LPRINT"I I"sLPRINT"ITIIIIII"s: 
LFRINT'TI I" sLPRINT 
2ou9 RETURN 
240 LPRINT:LFPRINT"JJJ"sLPRINT"J J":LFRINT"J J" 
£45 LPRINT" JJJJJJ":RETURN 
2J0 LFRINT"“KKEKKKEEK": LPRINT" K'"sLFPRINT" EK E's 
LFRINT" KO" 
“39 LPRINT"K Ks RETURN 
“60 LPRINT "LLLLLLL":FOR Z=1 TO 4:LFPRINT "L" 
114 sNEXT Z: RETURN 


270 


2795 
280 


285 
290 
295 
300) 
30S 
310 
S15 
320 
325 
330 
Soo 
340 
S45 
SOO 
tate) 
360 


365 
370 
a735 
380 


SBS 
O90 


S95 
400 
405 
410 
420 


430 
y00 
wJ1O 
20 
ol 
~40 


SIC) 


LPRINT"MMMMMMM" sLPRINT"” M"sLPRINT" MM": 


LFRINT" Mm" 
LPRINT"MMMMMMM" : RETURN 


LFRINT"NNNNNNN" =: LPRINT" NN": LPRINT" NN" 
sLFPRINT" NN" 
LPRINT"NNNNNNN": RETURN 


LPRINT" OQ0000":LPRINT"Q O":LPRINT"O oh 
LPRINT"O O":LPRINT" QO000": RETURN 

LPRINT "PPPPPP':LPRINT " FO P"sLPRINT" PP 
LPRINT " PO P":LPRINT " PP": RETURN 

LFRINT" @@QQQ":LPRINT"® Q":LPRINT"@ Q = Q" 


LFRINT’ OQ Q":LPRINT" @000Q": RETURN 
LFRINT"RRRARRR"sLPRINT" R R"sLPRINT" RRR" 
LPRINT" RR R"stlLPRINT"R RR" s RETURN 

LPRINT" GS SS":LPRINT"S GS S"sLPRINT"S Gg" 
LPRINT"S S S"slL PRINT" SS S":RETURN 

LPRINT" T's LERINT" T'SLPRINT"TTVTTTT": 
LPRINT"” T'sLPRINT" TT": RETURN 

LFRINT" UUUUUU"SLPRINT"U"SsLPRINT SU" Ss LPRINT"U"s 


LFRINT" WUUUUU 


RETURN 
LFRINT " VYVV"SLFPRINT " VV"SLFRINT "V" 

sLPRINT " VV" 
LRPRINT " VVVV" Ss RETURN 


LPRINT" WWWWWW":sLPRINT"W" ts LPRINT WWWWWYsLPRINT "Ww" 

LPRINT" WWWWWW" > RETURN 

LFRINT"X X"sLPRINT" XX XX":LPRINT" xX" 
sLFRINT" XX XX" 


LPRINT"X X" : RETURN 
LPRINT" YY" :LPRINT" Y"sLFRINT"YYYY" 

sLPRINT” S 
LPRINT" YY" s RETURN 
LPRINT"ZZ Z™:sLPRINT"Z Z Z°sLPRINT"Z Z Z" 
LPRINT"Z Z Z"sLPRINT"Z ZZ":RETURN 
LPRINT".."sLPRINT"..":LPRINT:LPRINT: LPRINT: RETURN 
LPRINT?! ! § 88 '"sLPRINT"§! Uf lin sL PRINT: 

LPRINT: RETURN 


LPRINT:LFRINT:LPRINT: LFRINT: RETURN 

IF D=1 THEN GOSUB 150:RETURN: REM "A" 
IF D=2 THEN GOSUB 160:RETURN: REM "BR" 
IF D=3 THEN GOSUB 170:RETURN:REM "C" 
IF D=4 THEN GOSUE 180:RETURN: REM "D" 
IF D=S THEN GOSUB 190:RETURN: REM "E" 
IF D=& THEN GOSUB 200:RETURN: REM "F" 
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DOC) 
AO 
DBO 
IPO) 
500 
610 
620 
6.30 
640 
bo0 
6460 
670 
680 
69 
TOO 
710 
720 
73M 
FAQ 
ran) 
999 


IF D=7 THEN GOSUE 


IF 
IF 
IF 


END 


N= 
D=9 
D=10 
D=11 
D=12 
D=15 
N=14 
D=15 
D=16 
D=17 
D=18 
D=19 
D=20 
ail 
D=23 
D=2 
D=25 


= 2% 


LQQ0Q RETURN 
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D 
D 


DDDDDDD 
D 


D 
D 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


D 


DDDDD 


MMMMMMM 
M 
MM 


THEN GOSUE 
THEN GOSUB 


(S0SUE 
GOSUE 
GOSUE 
GOSUB 
GOSUB 
GOSUB 
GOSUE 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
(S0SUEB 
GOSUEB 
60SUB 


IJIIIII 


J 


M 
MMMMMMM 


210:RETURN: REM "G6" 
20: RETURN: REM "H" 
2350:RETURN: REM "IT" 
2Z4OsRETURN: REM "J" 
2J0:;RETURNs REM "K" 
260:RETURN: REM "L" 
270:RETURN: REM "M" 
280s; RETURN: REM "N" 
290sRETURN: REM "0" 
SOO:RETURNSs REM "PRP" 
SLOsRETURN: REM "QO" 
S20sRETURN: REM "R" 
250; RETURN: REM "S" 
S40;RETURN: REM "T" 
SOOSRETURN: REM "U" 
S60: RETURN: REM "V" 
S7OSRETURN: REM "“W" 
oBOsRETURN: REM "X" 
S90:RETURN: REM "Y" 
400:;RETURN: REM "Z" 
HI OOO be 
© oO nea) 
© na 
S) MM 
© mG 
oO Oo a 
rH Oo © he! 
as Ae al ll 
-e Ge 
H ee 
eH e 
H eH 
eH ce 
HHH EH 


HHHHHHH 


H 
H 
H 


HHHHHHH 


Board Games 
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Some games could not have existed without computers. 

Think of the whole range of Space Intruder types of games and 
the Pacperson ones. These could have not come into being before the 
computer—using a TV-like screen for output—was developed. Many 
other games, of course, predate the computer by thousands of years. 
However, more and more of these traditional games have now been 
computerized, with board games being as popular with computer 
games players as they were with players in precomputer days. 

In this section of the book, we have a generous crop of board 
games: 


¢* GOMOKU 


FOUR IN A ROW 
CHECKERS 

AWARI 
KNIGHTSBRIDGE 
REVERSI (OTHELLO) 


117 


118 


| |GOMOKU 


You'll find GOMOKU an easy game to learn, but one which is almost 
impossible to win. The computer plays extremely well in this pro- 
gram, which is based on one written by Graham Charlton. 


beacer, 


n ale i , oe ey als 

ay a ‘ ich ey ny Ww 

fs Rohe ; es ye Ral Ave 
Sow SENT Th = 





You have to try to get five of your pieces (the H’s) iN a row in any 
direction, while the computer is trying to do the same. 

Have a look at these board positions from the start of one game I 
played against the program. Studying the printouts will show you how 
the game unfolds, and will show you how to play it: 


1234567 8 1234567 8 
T & 3 wwe we oe wwe «(CN t. 60% Se 6 a et oe 6 
So 6 es we ew ee: Ce 2: awe we. SS Oe ee we «6S 
3. @ x w Cae oe we 3 5. «w« & oe Ce es ee 3 
bee we ee Sw eS we OF ne ee ae a a a | 
5 tgs we owe we Ee a oe 5S « & « © Hw «<< “5 
6 « Ww. ow ow ew 56 6 «««< €.% % «a « 6 
1 . 4 tH we & we. A ' «© @# Bw <2 «os T 
So «6 & «= « © ws &. 3 Bs ter ee. OO es we. «8 

1234567 8 1234567 8 
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1234567 8 ; 1234 5 6 
eel teh tee eh. Ses. ec ee. ¢o oe ee oe @#® © 
{<< « So SS we: OS 6 @ 6 «:-« w <« 
ee ee SO te. SS. es “er CS 3 6« ec « Ge. 
ce ¢ Cee « & 4 H «eo eo Ow, 
oes w HCH. 5 5 hUlwl wl Ww HH C 
«ee CCH... 6 O:- « .«.@ °€'C-# 
- « HCHHHAH. 7 7 »« « HCO HSH 
Ce bee Ce aw OS oS « & & « & C 
1234567 8 1234 5 6 


Here’s the listing for your very own game of GOMOKU: 


10 REM GOMOKU 
20 GOSUB 780 
350 GOSUB 130 
40 GOSUB 270 
530 GOSUB 130 
60 GOSUB 350 
70 GOSUB 130 


-m me «© « a 
Qe ie 


=j « 


Cae0« e©« © oC 


BNW Sw > = 


80 IF L>S THEN PRINT:PRINT "I WIN! !"3GOTO 1040 


90 GOTO 40 

100 E=A 

1190 E=E+N: IF ACEI<+Z THEN RETURN 
120 K=K+1:GOTO 110 

130 FRINT CHR (28) 

150 PRINT TAB(7)53"1 2345 6 7 B" 
160 FOR A=1 TO S:FPRINT TAR(S)3A5" "s 
1370 FOR H=2 TO 9 

180 M=ACAXLO+E) 

190 IF M=C THEN FRINT "C "; 

200 IF M=H THEN PRINT "H "5; 

210 TF M=46 THEN PRINT ". "$5 

220 NEXT & 

2o0 FRINT & 

240 NEXT A 

2J0O FRINT TABC7) "1 2345 6 7 &" 
“60 RETURN 

270 PRINTs PRINT 


280 PRINTD416, "FLEASE ENTER YOUR MOVE... ":FRINT 


290 INPUT G 
200 G6=6+1 


S10 
320 
wean 
AD 
nO) 
OO 
27 
380 
29Q 
400 
410 
$220 
430 
440 
450 
ASO 
470 
4EO 
490) 
BOO 
=p te) 
wed 
weal 
oA 
oe) 
~O0) 
a7 
wt= 18) 
FO 
600 
610 
620 
630 
640 
650 
650 
&70 


680 
69Q 
700 
710 
720 
730 


IF Gii2 OR G89 OR AC(G)£246 THEN 280 
Z=H:FRINT2416,L$: PRINTD448,L% 
A(G)=Z 
RE TURN 
A=(5 
J .=20) 
FOR X=1 TO 4:k=0:N=xX (xX) 
GOSUB 100 
N=-N: GOSUE 100 
IF Kel THEN Lek 
NEXT xX 
Le es 
T=1 
IF Tee? THEN Z=C 
IF Te2 THEN Z=H 
G=O2H1=0O:L=0 
FOR A=12 TO 89 
hao 
IF ACA) 2246 THEN S00 
FOR X=1 TO 4sk=O:N=X (xX) 
GOSUH 100 
N=-N:GOSUB 100 
IF Eel THEN Hi=O:LaSk 
IF Leck THEN S70 
IF 11 AND Le4 OR (T=2 OR T=3) AND Le? THEN 370 
M=hM+1 
NEXT X 
TIF Me sHil THEN 600 
H1i=M:G=A 
NEXT A 
IF H1e°>0 THEN 680 
T=T+1: IF Te>4 THEN 440 
A=] 
G=RND (77) +13 
IF A(G)=46& THEN 680 
A=At+1: IF A100 THEN 640 
FRINTsFPRINT "I CONCEDE THE GAME": 
FRINT "TO A MASTER! !"sEND 


THEN FRINT:FRINT "YOU WIN! ! ":END 


A(G)=C 
Z=C: A=G:L=0 
FOR X=1 TO 4 
K=0) 
N=X (X) 
GOSUB 100 
121 


74Q 
70 
760 
770 
7BO 
790 
Bac) 
B10 
820 
30 
S4q 
830 
B60) 
870 
380 
890 
900 
910 
920 
Fad 
940 
90) 
960 
970 
930 
990) 
1000 
1010 
1020 
1030 
1040 


1050 
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N=-N:GOSUB 100 
IF Kel THEN Lk 
NEXT X 

RETURN 

CLS:L$=" "SREM 20 SPACES 
DIM A(100),X (4) 
FOR C=1 TO 8 
FOR H=2 TO 9 
A(CX10+H8) =46 
NEXT B 

NEXT C 

FOR O=1 TO 4 
READ Z:X(Q)=2Z 
NEXT OQ 


DATA 1,9,10,11 

H=ASC ("H") sC=ASCC"C") 

FRINTI:FRINT “ENTER *“Y¥* IF YOU WANT THE " 
PRINT “FIRST MOVE, *N* IF YOU DON’T" 

N=0 

N=N+1 

AS=INKEYS$ 

IF AS<>"N" AND ASS S"Y" THEN 930 

CLS 


IF AS="Y¥" THEN RETURN 
FOR J=1 TO RND(12) 
READ Z 
NEXT J 
A(Z)=C 
RETURN 
DATA 234, 35.44, 46,47, 554,55, 56,57, 66, 75,84 
SOUND 16,2:SOUND 16,2:SOUND 13,4 
:SOUND 18,2:SOUND 16,5 
SOUND 13, 4: END 


| | FOUR IN A ROW 


In this game, FOUR IN A ROW, as its name suggests, the aim is to 
get four of your pieces (the H’s) in a line in any direction, before the 
computer (using the C’s) manages to do so. 

You indicate your choice of move by specifying the column in 
which you want to move your piece. The piece then drops to the 
lowest available position within that column. 

The computer plays this game fairly well, and surprisingly 
quickly, considering the number of times it can go through those loops 
within the program. 


"hy it 
Ant | 


7 il “yy 
I ‘ 


i ‘i ‘ i 
AN ul - i a 
aa || 


I was not particularly pleased when I finished the first hand-writ- 
ten version of this program, because it seemed to me that I had taken 
a “brute force” approach to solving the problem. I was sure there 
would be a more clever way to do it. However, I continued with the 
program, and then entered it into the computer. It won the first game, 
even though it played a little oddly, so I knew I was onto a winner, 
despite the programming approach. Then, when thinking about it 
later I realized that if the program was correctly structured (as it was), 
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had no redundant code (and it hasn't, as far as I can see), ran quickly 
and well, it did not need “fiddling” to make the programming more 
tricky. Transparent code is always better than overly clever con- 
voluted code which, although it may occupy less space, and may run a 
few microseconds faster, is almost impossible to modify. 

So the program you have here is my “brute force” version. It is 
generously supplied with REM statements so you have little trouble 
in working out what each section of code does. It should also prove 
fairly simple to modify, once you have played a few games with it in 
its present form. 

In this version of FOUR IN A ROW, the computer always allows 
the human to have the first move, and bases its initial move on that 
made by the human. You may wish to modify the program so that 
there is an option for the computer to have the opening move. 

Before we get to the listing of FOUR IN A ROW, here’s one 
game played against the program: 


Du aeees ee 6 
iS, at. oy A OE le s er Ser de es. x 
1234567 12345 67 
: Mer sé 1G. te Je “he a 

H HC Be fee oe 
. e HC HHC, , 
a. % se. “Coe. ae 4 Cc..C..; 
go: te. OH SHE: +42 CC HHH. , 
s HOC CC. ~ HHCCC, , 
HCHHC, . HC HHC. H 
1234567 12345 1 


—~mooaaa>nre 


This 


10 
20 
oC) 
40) 
wt) 
40 
7 
30) 
OC) 
100 
110 
120 
120 
140 
150 
160 
170 
180 
190 
200 
210 
ma) 


rome @ 


»» CC... - eo « CC oe 
- CH... ef Hae CO. He ee 
»§ CH. «2 « CC CH: 4: lg 
»- HCH. H CHHCH. 4H 
CHHHCC CCHHHCC 
HC C C HH H HC CCH H 
CH HCCH HC H HCCH 
234567 12345 67 


is the listing for FOUR IN A ROW: 


REM FOUR-IN-A-ROW 
GOSUB 1090:;REM INITIALISE 
(SQOSUE B860:REM UPDATE BOARD 
GOSUB 680:REM WIN CHECK 
GOSUEB 9803 REM HUMAN MOVE 
GOSUE 860:REM UPDATE BOARD 
GOSUBR 680:;REM WIN CHECK 
GOSUR 110:REM COMPUTER MOVE 
FRINT®S20,L%$:GOTO 30 
REM XXKXKKKKAKKKKX 
REM COMPUTER MOVE 
PRINT2S20, "FLEASE STAND BY FOR MY MOVE..." 
R=10 
Fi=:K+ 1 
IF ACH) =-9 THEN 180 
IF ACB)=C THEN X=C:GOTO 210 
IF ACB)=H THEN X=H: GOTO 210 
IF Be 77 THEN 140 
GOTQ 480 
REM XXKKKKKKKAKK KKK KKK KKK KKK KAKKK 
REM FOUR IN A ROW DANGER/CHANCE? 
REM ACKOSS 
IF ACB+1)=X AND ACBRt+2)=XAND ACB+3)=E AND 
ACB+13)<2E THEN 1220 


<40 IF ACB-1)=X AND ACBH-2)=X AND A(B-3)=E AND 


oo 


260 


270) 


A(E+7)<2E THEN 1230 
IF A(+1)=X AND A(B+2)=X AND A(B--1)=E AND 

A(B+9)<22E THEN 1240 
IF ACB-1)=X AND ACB+2)=X AND ACE+1)=E AND 

ACH+11)<>E THEN 1250 
IF A(B+1)=X AND A(H-1)=X ANDA(E+2)=E AND 


ACH+12) <>E THEN 1260 
125 


2830 


290 


3200 
old 


320 


O30 


240 


3S5OQ 
360 
370 
280 


390 


440 
470 
480 
490 
SOO 
510 
520 
530 
540 
S50 


a ToLW) 
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IF ACB+1)=X AND ACB-1)=X AND A(B-2)=E AND 
A(B+8)< +E THEN 1270 
IF A(B-1)=X AND A(B-2)=X ANDA(B+1)=E AND 
ACB+il)<s+E THEN 1250 
REM DOWN 
IF B>20 THEN IF ACB-10)=X ANDACB-20)=X AND 
ACB+10)=E THEN1I S00 
REM DIAGONALS 
IF AC(B+11)=X AND AC(B+22)=X ANDAC(H-11) =EAND 
ACB-1)<-E THEN 1240 
IF A(B+9)=X AND ACB+18)=X ANDACB-9)=E AND 
AC_—B+1)<°E THEN 1280 
REM KXKKKKKKKKKKKKKKE 
REM MAKE/BLOCK THREE’ 
REM ACROSS 
IF AC(BR+1)=X AND A(CBt+2)=E ANDA(B+12)<°E THEN 
MOVE=B+2:GOTO 450 
IF ACH+1)=X AND AC(B-1)=E AND ACBt+9)<>E THEN 
MOVE=B-1:GOTO 650 
IF A(B-1)=X AND A(B-2)=E AND A(Bt+8)<>E THEN 
MOVE=EB-2:GOTO 650 
REM VERTICAL 
IF ACB+10)=X AND ACB-10)5E ANDA(B)< +E THEN 
MOVE=B-10:(50TO 450 


REM DIAGONAL 
IF ACB+9)=X AND ACER-9)=E AND ACBt+1i)< >E THEN 
MOVE=B-9:GOTO 650 
IF B>11 THEN IF A(B+11)=XANDA(E-11)=E AND 
A(B-1)<+E THEN 1290 
GOTO 180 
REM XXXKXKXKKKKX 
REM SINGLE MOVES 
FOR N=1 TO 3 
MCN) =O 
NEXT WN 
COUNT=0 
FOR B=11 TO 77 
IF ACB)<-C AND ACB) <3H THEN 600 
IF ACB+1)=E AND A(B+11)<>E THEN COUNT=COUNT+1 
:M (COUNT) =B+1 
IF AC(B-1)=E AND ACEB+9)<2E THEN COUNT=COUNT+1 
> M (COUNT) =B-1 


QO) 
G10 
S20 
630 
640) 
550 
440 
670 
4390 
TOO 
710 
araAe) 
730 
740 


8.37 
140 
$50 
re rok@) 
870 
BEBO 


IF ACB-10)=E AND ACB)< SE THEN COUNT=COUNT+1 
2M (COUNT) =B-10 
IF ACB-11)=E AND ACBR-1)<¢5E THEN COUNT=COUNT+1 
°:M (COUNT) =B-11 


IF ACB-9)=E AND ACB+1)<>E THEN COUNT=COUNT+1 
:M (COUNT) =B-9 
NEXT & 
IF COUNT< +0 THEN 640 
PRINT "I THINK WE SHOULD CALL IT A DRAW" 
FRINTSPRINT: PRINT: END 
MOVE=M CRND (COUNT) ) 
A (MOVE) =C 
RETURN 
REM WIN CHECK 
X=H 
B=j0 
Fi=Er+ 1 
IF ACB) 2X THEN 770 
IF ACE+1)=X AND ACE+2)=X AND A(B+3)=X THEN 800 
IF E230 THEN IF A(B-10)=X ANDACBR-20)=X AND 
A(B-30)=X THEN 800 
IF Bo THEN IF AC(B-11)=X ANDA(B-22)=X AND 
A(B-33)=X THEN 800 
IF Be2S7 THEN IF ACH-9)=X AND ACB-18)=X AND 
A(B-27)=X THEN 800 
IF B&77 THEN 710 
IF X=H THEN X=C:GOTO 700 
RETURN 
REM WIN FOUND 
PRINT 
IF X=H THEN FRINT "YOU" VE BEATEN ME, HUMAN! " 
IF xX=C THEN PRINT "I*VE DEFEATED YQU, 
HUMAN! ":sSOUND 16,3 
IF X=C THEN SOUND 14,2:SQUND 13,4: SOUND 
18,2:SOUND 14,5 
IF X=C THEN SOUND 13,4 
END 
REM XXKXKXKKKKKKK 
REM UWFPDATE BOARD 
FRINT CHR CSE) ; 
FOR K=10 TO 7O STEP 10 
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S90 FRINT TAECS) : 
goo FOR J=1 TO 7 
910 FRINT CHRE(ACEHI)) 3" "3 
920 NEXT J:PRINT 
930 NEXT E 

940 FRINT TARCS)s"1 
950 PRINT: PRINT 
940 RETURN 


970 


REM XXXKKKKKKX 


9380 REM HUMAN MOVE 


PIC) 

LOod 
LO1O 
LOB 
1O30 


1040 
LOSsO 
1060 
1O7O 
LOBO 
Lago 
1100 
L1liao 
1120 
Piso 
1140 
Lisa 
1160 
1170 
Liga 
1190 
1220 
Pre 
1240 
1250 
1260 
1270 


1200 
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PRINT 288, "YOUR 
FRINTO S20, "WHI 
INEFUT “MOVE IN 
Z=3J 
Z=Z+10:FRINTO? 


ooo 4a & 7" 


MOVE... "SF RINT 
CH COLUMN DO YOU WISH TO" 
TO'sd 


80, L#:FRINT L#:FRINY LS 
2FRINT L&:FPRINT Ls 


IF ACZ+10)=E THEN 10230 
IF ACZI=E THEN ACZ) =H: RETURN 
PRINT®D384, "YOU CAN’ T MOVE THERE" 


GOTO 1000 
REM XKXKKXKKKKK 


REM INITIALISE 


CLS 


DIM A(1O9) MOBO) FS) 


=46 
H=7 ts C=47 


FOR G=1 TO 109: ACH) =E 


D=R-1LOX INT CEs 1 
IF D=O OR TDe7 
NEXT & 

| = it 


RETURN 

MOVE=B+3: GOTO 
MOVE=EH-3:s GOTO 
MOVE=B-1:GOTO 
MOVE=B+1:sGOTO 
MOVE=h+2: GOTO 
MOVE=B-2: GOTO 


IF ACH+20) 2°68 


©) 
OR Ell OF ES7?7 THEN AC) =-9 


PREM 31 SFACES 


650 

6350 

650 

650 

650 1280 MOVE=E-9:GOTO 650 
HOO L290 MOVE=H8--11:GOTO 650 


THEN MOVE=EH+103 
BUTO 650 ELSE S20 


| | SHOGUN 


SHOGUN is based on the Japanese board game HASAMI SHOGIL. In 
this game, generally played on the corner of a GO board, you move in 
any direction (forward, backwards, or sideways) in a straight line. Diago- 
nal moves are not allowed. As well, you can jump over a piece (again in a 
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straight line). You can jump over your own pieces, or an enemy piece. 

The jumped piece is not removed from the board. You capture a 
piece by squeezing it between two of yours. That is, you get one piece 
of yours on either side (except along a diagonal) of a computer’s piece, 
and it is removed from the board. A piece is not captured if it moves 
between two of the opponent’s pieces. 

There are no double moves. You do not get an extra move fol- 
lowing a capture. In the original game, the aim is to remove all your 
opponent’s pieces from the board. However, this is a fairly slow game, 
and could take an eternity if played against the computer in this way. 
Therefore, I’ve written it so that the game is won by the first player to 
capture six of the opponent’s pieces. 

You'll find that the game will more or less teach you how to play 
it just by watching how it moves. Don’t forget the fact that you can 
jump over your pieces, or the computer’s pieces. This is a recom- 
mended tactic to get pieces well out into the board near the beginning 
of the game to get the game moving. 


1223435 4789 
IrCC CGC CC GC ce 
ao. CC 6.0 €-C-E.C A 
GeKK KK KK KX kK kG 
Fk KK kK KK KOK OK OF 
EK KK KKK RK KKE 
Dx kK kK xk kK K KK kK OD 
CK Kk KK KK KK KC 
BHH HH HH HHHSE 
A HH HHH HHHH A 
12353456789 
VZ3008 0 HUMAN: 0 
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WOO es «eM MTT KEI — 
re 
TUL MHRMHMRTTS a 
~rF O 
mOU eM MMM TTMS a a 
HOUR Me MR HETTC Saé 
wAOOeeeeRTIW pm 
seTOwuWwano x S53 
HTreuiwaugad . oo o- 22S 
RUUK KRM MRKITIR ree 
ee i} 
Ooo xMxeMReHeHMeTITUO re eT 
NOOO *MeMNMRHMHRTDITN aT PS *eOC 
DBeUUNMRMRHHRITIN Ion oO x = 
zU 
WOOL MRM MMHETIPL = NO x O 
ir C- 
TOC MwMeMHHeEIETt lil Gs * 
cre O 
MOU € eee HT IM bb WO «x O 
az LJ ; 
WOW MMR HMRHRHMRIT~TOC oi yy % x 
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Le it 4a eU UO 
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©) 


—- 


(LETTER,NO)? EG 


HUMAN: 


br a 


-ROM BS TO F D: 


H x* H xX xX HA 


1 


Fx kk C kK kX kX C KE 
H xk xX 


C xX HH* kHHK KC 
Rl * HH * kK iH * HB 


VZ5008 


A 
FROM 


sTOuUuWwWAonMCe 
FTOxO Me MRM HRT TH 
MOxUONMR MTC Ke KO 
BOs O % MMT ITHEP 
OeRHUU MHI XIDO 
»RN WOXOR TL RH HID 
Wii x x OOoxxx Ire 
Rr o ee ee TDM 
MOO ee MMM TI 
~Ae UO UR MHHMRT TH 

qeTowwWwAonmMTd 


O 


HUMAN: 





VZ50032 0 
FROM (LETTER,NQ)? C8 


FROM C8 TO 7 ES 


HTrOuUuwWAomMd eHTOuuwwWwWaoaCd 
Re#UUOxs MR MMT IG CeHUUM MR HMRHTNOD 
OoxxOUTLHexH XO OUxnX XO TIX TX O 

NN 
0 


0 


Ox OU «mee HReTTHeKR UO *« «eM MOT ITEM 
GeEHeOULHRHeILXIGV 
WNoxOxNMXTTCe HH 


HUMAN: 


0 
FROM (LETTER,NO)Y D2 


exeOXRXOUBRT XI 


TO ? E2 


tee MEO UHK HXTT Tse xe HRONROTI XS 
MOO eM uMR MTT KH MeuouUe eT HeHRE 
MOU * eH eM HOY 9 ss WOU ee TRL HM HCY 
sae UH OMS MRHHTI ws ae ss BU BOO MRHTINMR 
eserouwwauoagad > s HTrOoOuUuWwoomd 
Le 


0 


HUMAN: 


1 


VZ300 
FROM (LETTER,NO)? B9 


FROM B9 TO ? C9 
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1?2?s43564789 
Ix C kx x*C x CC ki! 
HO CC x * kK k x* CH 
G*e** Cx CCOxk XC G 
FC xk * C xX kK kC xX F 
Ex Hk kK xk xX XARXKE 
D* * HC * C CH kD 
CHHHHXHHAHKHE 
BH k XH * kX HH X* B 
AK xX Xk kA KK KA 

123435678 9 


VZ3S008 2 HUMAN: 0O 
FROM (LETTER,NO)? Bi 
FROM B1 TO ? D1 


Here’s the listing for SHOGUN: 


1O 
GQ 
aQ 
40 
50 
&O 
70 
HO 
OO 
100 
110 
120 
125 
120 


+ i 


13S 


140 
145 


150 
160 
170 
172 
17S 


180 


REM SHOGUN 
REM FOR THE INSCRUTABLE VZ300 


GOSUB 790 
GOSUB 9O 
GOSUB 440 
GOSUB 630 
GOSUB 440 
SOTO 40 
REM CAPTURE 
A=99 
IF ACAI=2C THEN 190 
IF A(A-10)<>E THEN 130 
TIF ACA-9) =H THEN IF A(A-8)=C THEN B=A-10:GOTO 350 
IF A(A-10)<3E THEN 140 
IF ACA-11)=H THEN IF A(4A-12)=C THEN B=A-10 
sGOTO 350 
IF A(A-10)<£2E THEN 150 
IF ACAt+11)=H THEN IF ACAt+12)=C THEN B=A-109 
:GOTO 350 
H=1 
IF O+24C (8B) 11 OR At2*C0(B) 599 THEN 180 
IF A(AtC(B))<7E THEN 180 
IF A(At2%C(B))¢3>H THEN 180 


IF ACA+SKC(B))=C THEN ACAt24C (B) )=E:CS=C5+1 
:GOTO340 


IF Bé4 THEN B=B+1:GOTO 140 133 


190 
200 
210 
ee 
oO 
240 
2) 


2 GQ 


27Q 
=8O 
290 
2935 
300 
3210 
aeQ 
PY ©) 
240 
OOO 
360 
Rw Ae) 
280 
390 
AO 
Alo 
4720 

20 
440 
ASO 
440 
470 
460 
490 
BOO 
310 
we 
at) 
D4oO 
st) 
har Fen) @) 
a7 
TIO 
600 
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IF As=11 THEN A=4--1:GOTO 110 
REM NON-CAF TURE 
CNT=0 
CNT=CNT+1 
A=RND (88) +11 
IF ACA)=C THEN 270 
IF CNT< 200 THEN 220 
FRINT "VZ SHOGUN MASTER": FPRINT I GIVE 
; YOU THE VICTORY! ":END 
IF At2ZAxC(B)<11 THEN 300 
IF ACAtC(B))&3C0 OR ACAtC (B28 FH THEN 300 
IF ACAt+2%4C(B))=E THEN B=A+2kC0(B):GOTO 350 
IF ACAt+C(B))=E THEN 330 
IF Be 4 THEN B=B+i:GOTO 280 
GOTO 250 
REM VZ30O0 MOVES 
BH=A+C (B) 
Ri=B-1OxX CINT(B/10) ) 
A(B)=C2ACA) =E 
IF Bl>7 THEN 390 
IF ACB+1)=H AND A(Bt+2)=C THEN ACB+1) =E:CS=CS+1 
IF Bic3 THEN 410 
IF A(B-1)=H AND AC(B-2)=C THEN AC(B-1)=E:CS=CS+1 
IF A?+89 THEN 430 
IF ACB+19) =H AND ACBt+20)=C THEN A(B+19)=E:CS=CS+t1 
IF A«c29 THEN RETURN 
IF ACB-10) =H AND ACB-20)=C THEN A(B-10) =E: CS=CS+1 
RETURN 
REM BOARD PRINTOUT 
CLS 
FRINT TAB(CS)3"1 2345 6&6 7 8 9" 
FOR M=90 TO 10 STEP -10 
PRINT TAB(S) 3 CHR (M/10+64) 5" ": 
FOR N=1 TO 9 
PRINT CHR®CACM+N)) 5" "3 


NEXT N 

FRINT CHR (M/10+64) 

NEXT M 

FRINT TABC(S)s"1 23245 678 9" 
PRINTSFPRINT TAB(3) 3 "VZ300: "CS" HUPRIANs: "HS 
IF CS+6 OR HS*6& THEN 610 

RETURN 


G10 
620 
6.20 
540 
A 
560) 
&7O 
at= he) 
H FO 
7OO 
710 
420) 
Font) 


74AO 


Veel®) 
740) 
070) 
77S 
780 
790 
BOO 
HOS 
810 
20 
B30 
40 
ele) 
840 
7 O 
838oO 
OFC) 
Q9OO 
910 
GeO 
ce © 
F4Ac 
FSO 
950 
970 
98OQ 


TF SHS THEN FRINT:PRINT "I WIN! ":SOUND 3, 1:END 
PRINTSFRINT "YOU WIN! ":SOUND 10, 2:END 

REM FLAYER MOVE | 

INFUT "FROM (LETTER,NO.)"3AS 

IF AS="S" THEN END 

IF LEN(CA$) <2 THEN 640 

PRINT "FROM "AS" TO "s:INPUT BS 

IF LENCBRS)<e2 THEN 670 

A=10% (ASC (AS) -—64) +VAL (RIGHTS (AS, 1)) 

B=10X (ASC (BS) -64) +VAL (RIGHTS (BS, 1) ) 

Y=VAL. (RIGHT# (BS, 1)) 

ACH) =H: ACA) =E 

IF ACB+1)=C AND ACB+2)=H AND Y*=7 THEN AC(B+1)=E 


= HS=HSt+]} 
IF ACB-1)=C AND A(B-2) 5H AND Y2=5S THEN A(B-1)=E 
>HS=HS+1 


IF Bs79 THEN 770 

IF ACB+10)=C AND A(B+20)=H THEN ACH+10) =E:HS=HS+1 
IF He31 THEN 780 

IF ACB-10)=C AND ACB-20)=H THEN ACBH-19) =E:HSsHS+1 
RETURN 

REM INITIALISE 

CLS:PRINT: PRINT 

TIF INEFEY$< +"" THEN 80% 

FRINT " PRESS ANY FEY ON YOUR VZ300" 


N=1 
N=N+1 
IF INKEY$="" THEN 830 


CLOGSPRINT " PLEASE STAND BY..."3:SOUND 17,1:SQUND 8,1 
FOR J=1 TO N:@=RND(10):sNEXT J 
CLS 

DIM AC129) ,C(A4) 
H=723(7=67:E=42 

FOR Z=11 TO 29 

IF 2=20 THEN Z=2 

AZ) =H 

NEXT Z 

FOR Z=31 TO 79 

IF LOXINT(2Z/10)52 THEN Z=Z+i 
ACZ)I=E 

NEXT Z 

FOR Z=81 TQ 99 


135 


990 IF Z=90 THEN Z=91 
1000 ACZ)I=C 

10410 NEXT Z 

LO2?0 HS=0 

10350 CS=0O 

1940 FOR Z=1 TO 4 
1050 READ C(C(2Z) 

19060 NEXT Z 

1070 DATA —-19,-1,1,19 
1080 GOSUB 460 

10O90 RETURN 


1i2>s4s545478 7 
ITecccctl ccct 
HCGCGGtCCCCEH 
Gk kK KKK kK K K KX OG 
F kK KK KX K KK K KOE 
Ee xk kK KX KX KX KX KX K KX CE 
Dx KK kX kK KK K XK OD 
GO kK KX KK KK K KC 
BH AHA AHHH AHA A Ge 
A HHH HHH EH HHA 

12saw4s5678 9 
VZ2008 O HUMAN: © 
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| |\ CHECKERS 


The game of CHECKERS has a long and honorable history. R. C. Bell 
(in his book Discovering Old Board Games, Shire Publications, Ayles- 
bury, UK, 1980) says it was invented around 1100, “probably in the 
south of France, using Backgammon tablemen on a chequered chess- 
board with the Alquerque method of capture” (pp. 35-36). The 
Encyclopedia of Sports, Games and Pastimes (Fleetway House, 
London, c. 1935) puts it much further back in time: “Forms of it were 
known in ancient Egypt, Greece and Rome, while the game was played 
in the mid-seventeenth century much as it is today” (p. 237). 
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Regardless of its age, it is a very popular game around the world, 
with many European countries having regional variations on the game 
of their own. Continental draughts (checkers is generally known as 
draughts outside the US), for example, is played on a board of 100 
squares with each player starting the game with 20 pieces. It was 
developed in the early 1700s. 

This CHECKERS program plays the game you are probably 
most familiar with. It plays swiftly, and reasonably well, although its 
lack of endgame strategy often leads to a dramatic collapse in the final 
moments of a game. 

CHECKERS is played between you and the computer. Each of 
you is attempting to take (that is jump over to capture, then remove 
from the board) the other player’s pieces, or to confine the opponent's 
pieces so no more moves are possible. 
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The game is generally played on a board with 64 squares, which 
are alternately light and dark. In this program, the board (as you can 
see from the sample game we have shortly) is a series of dots, with 
your pieces shown as H’s (for human) and the machine’s pieces as C’s 
(for clever). 

When the game begins, you're at the bottom of the screen, play- 
ing up, and the computer is at the top playing down. As the program 
is currently set up, the computer always has the first move. If you 
want the first move then delete line 50. 

All moves must be made along diagonals. Individual pieces can 
only move forward, that is, toward the opponent’s starting side. Pieces 
are converted into “kings” when they reach the back rank across the 
board. Your kings are shown as K’s, the computer’s kings are dollar 
signs. Kings can move either forward or back. After capturing a piece, 
by jumping over it into the vacant square immediately behind the 
captured piece, you can move again if there is a further capture which 
can be made. 

Here is a series of board positions from one game I played 
against the program: 


COMPUTER: 0 
HUMAN: 0O 
1234567 8 COMPUTER: 0 
8 .C.C.Cc.c 8 HUMAN: 0 
7 ¢C.C,.,.C,.C. fF 
6 .C., » C .C 6 
5 ° ~~ C.« - 5 1234567 8 
yo e . . 4 6B .C. ~- C.C 8 
3 H.#HBH.H.H. 3 7 C©.C.C.C. FT 
2 .H.dH.H.H 2 6. »- ©C.C.C 6 
1 H.H.dH.H. 1 5 Cc. - Cc. . 5 
12345 67 8 Hy LH. ° - H 4 
3 - H. iH. aH. 3 
2 .H.H.. o H 2 
1 #H.dH.H. HH. 1 
1234567 8 


~—~ NW &u a= © 


~MmW £&UW vn yd © 


This is the complete listing for CHECKERS: 


LO 
0) 
0) 


40 


—s & eo 


REM 
GOS 


COMPUTER: 4 
HUMAN: 4 
234567 8 
; : ; 8 
oH & Cw Ow 7 
Cg Ca 0-6 
: ; .¢. 5 
oH. .H Y 
es 8 
. « H.H 2 7 
~H.$.H. 1 6 
34567 8 5 
y 
3 
2 
COMPUTER: 9 
HUMAN: 10 
234567 8 
kK; : 8 
og e ;  <F 
‘ : : 6 
oe ; » 5 
; ; ; 4 
: . «K 3 8 
¢ e e 2 7 
, ‘ . . 41 6 
234567 8 5 
\ 
3 
2 
1 


CHECKERS 
UR 1010:REM INITIALISE 


1 


REM DELETE LINE 50 FOR HUMAN 


REM 


TO HAVE FIRST MOVE 


COMPUTER: 
HUMAN: 


s 
i ° 


° 
e 
Oe Qe 


COMPUTER: 
HUMAN: 


non 


~J 
Co 


“~J] Te. Me CQe O|Qe 
me me Oe 


cw e 


11 
10 


=NW £&ua- © 


=MNW vu an~] © 
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140 


wt) 


rah a) 

70 

Oo 

90 

1aQ 
110 
T20 
130 
140 
150 
140 
170 
189 
190 
200 
210 
250 
=40 


2wQ 


250 
a7) 
=98Q 
270 
S00 
210 
320 
me ©) 
340 
SIO 
360 
370 
580 
390 
400 
410 
420 
430 
440 
450 
440 
470 
490 


GOTO 9O 

REM KEXKKKKKKKKK KKK KA KK KKK KK 

GOSUB 600:REM PRINT BOAKD 

GOSUB 760:REM GET AND FRINT HUMAN MOVE 
GOSUR 600:REM FRINT BOARD 


GOSUB 130:REM MAKE MOVE 

GOTO 790 

REM KXXXKKKKKXKKKKKKKKKKKKKKX 

FOR X=1 TO 10:S(X)=O:NEXT X 

SC=0: A=89 

A=A-1 

IF OfAd<2C AND Q@¢(AD£2C K THEN 240 

B=O:IF A<29 THEN B=2 

R=B+1] 

M=A+N (B) 

IF M788 OR Mil THEN 240 

IF (@(M)=H OR @(M)=HE) AND Q(M+N(8B))=E THEN 280 

IF B<2 OR (Q¢(A)=CK AND B&4) THEN 180 

IF A?11 THEN 150 

FL=Os IFOC(22)=C OR O(24)=C ORO(2Z46)=C OR (8(28)=C 
THEN GOSUBI270 

IF FL=1 THEN 370 

GOTO 420 

Q(M+N (BR) )=0¢(A) S0¢M) =E:s QCA) =E 

CO=CO+1 

GOSUB 600 

A=M+N (EB) 

B=0) 

B=B+1 

IF (At2KN(B)<11 OR At2*N(B) 288) AND Bi 4 THEN 220 

M=A+N (B) 

IF Q(M)=C AND H?3 THEN RETURN 

IF (@(M)=HE) AND Q(M4+N(B))=E THEN 3230 

IF Bk2 OR (QCA) =CK AND B< 4) THEN 330 

RETURN 

IF SC<10 THEN SC=SC+i 

S (SC) =100X*A+B+20: RETURN 

IF SC=0 THEN 4790 

XC=RND (SC) 

A=INT (S¢(XC) /100) 

M=A+N (5S (XC) -100kA-20) 

GOTO 370 

SC=SC+1:A=RND (88) 

IF Q¢(Ad<3C AND OCA)< CK THEN S50 


490 
SOO 
wl 
cha C) 
arpa @) 
T40 
sO) 
S60) 
w/70) 
Mat & 38) 
IPO 
600 
610 
620 
630 
640 
6350 
4660) 
7) 
630 
590) 
7OQ 
FIO 
720 
FQ 
740 
7OQ 
760) 
77) 
780 
79) 
Bod 
Gio 
B15 
os a 
825 
STS) 
B35 
340 
B50 
GH6O 
O70) 
830 


BH=0 

Et=Fi4+-1 

M=A-+N (BR) 

IF M:88 OR Mc11 THEN 570 

IF Q(h)=E THEN 370 

IF Bee? OR OCAD=CK AND B&4 THEN Sac 
TIF SC 300 THEN 470 

FRINT:FRINT"I CONCEDE THE GAME": END 
Q¢(M) =Q(A)s0(A)=E 

RETURN 

REM XKKKKKKK KK KKK KKK KKK KK KK 

PRINT CHRS$ (28) ; 

FRINT" COMPUTER: "CO 

PRINT" HUMAN: "HU 

FRINT" 123845 6 7 8" 

FOR F=80 TO 10 STEFF -10 

PRINT F/itoOe™ 

FOR G=1 TO SsFRINT CHR#(Q(G+F))35" "“ssNEXT G 
PRINT F/10: NEXT F 

FRINT" l2io45678 " 

IF CO=12 OR HU=12 THEN 710 

RETURN 

IF HU=12 THEN PRINT" YOU HAVE WON!" 
IF CO=12 THEN FRINT"I HAVE WON!" 
FRINT"' THANKS FOR THE GAME":END 
REMX KKK KKKKKKKKKKKKKKKKKKKX 

REM 99 TO CONCEDE THE GAME 

REM HUMAN MOVE 

FRINTV416, "ENTER YOUR MOVE": PRINT 
FRINTDI446,""3: INFUT"FROM"3A 

IF A=99 THEN GOTO 730 

IF @Q¢A)<> H AND @(A) <> HK THEN 780 
FRINTI448, " "ss INFUT"TO"s:8 

IF @¢(A)=H AND B<A THEN 810 

IF @¢(BH)< +E THEN 810 


PRINT®416, " "sSREM 15 SPACES 
OCB) =H(A) sQ(A) HE 

PRINT2446, " "sREM 10 SPACES 

REM KKK KKK KAKA KKK KKK KKK KKK 


FOR T=11 TO 17:IF Q(T)=C THEN Q(T) =CK 
NEXT T 
FOR T=82 TO 88:IF @(T)=H THEN Q(T) =H 
NEXT T 
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S90 
900 
910 
O20) 
930 
940) 
930 
950) 
970 
973 
980 
29O 


REN AGO OOOO OO OK IGK 
IF ABS (A-B)<12 THEN RETURN 

TY=RND (10) 

IF TY<= THEN PRINT2416, "GOOD MOVE":GOSUB 1340 

IF TY:7 THEN PRINT2416, "GOT ME!"sGOSUB 1340 
HU=HU+1:@Q¢ (A+E) /2)=E:GOSUB 400 

FOR T=82 TO 8@:IF Q@(T)=H THEN Q(T)=H THEN Q(T) =H 
NEXT T 

FRINT: INFUT"CAN YOU JUMP AGAINCY/N) "s; 
PRINTD416," 

IF AS<>"Y" THEN RETURN 

A=B: GOTO 800 


At 


Looo 
1010 
LO20 
LOso 
1040 
1Q30 
1050 
19070 
Lag80 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
11460 
1170 
1180 
1190 
1200 
1210 


1220 
12:20 
1240 
L250 
1260 
1270 
1280 
1290 
Lao0 
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FEM KOK ACK K KK KKK KKK KKK KKK 


REM 


CLS: PRINT 
IF INKEY$<> " 


CLS 


PRINT "PLEASE 


INITIALISE 


THE SFACE KEY" 
THEN 1030 


"PRESS 


STAND BY" 


DIM Q(99),N(4),5(10) 


H==7 
C=47: 


=F = 


E. Hs at 8 ) 


2:HR=7S 


CK=36 
OF=-99 


FOR M=1 TO 99:Q0(M)=OF:NEXT M 
FOR M=1 TO 64 


READ 


D,G 


Q¢(D)=G:NEXT M 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


81,46,92,67,83, 46,84, 467,85, 446,95, 57,87, 46 
8B, 67,71,67472, 46,75, 67474,46,75,67,76,46 
77,67,78,46, 61,45, 62,467,635, 46,64,67 
oe 66,67,67, 46,68, 67,51, 352,52, 46 

Dog cea 4, 46,55, 32,56, 46,957,52,58,46 
41,46, Ae ey 45,46, 44,32,45,46, AS, 22 
47,486,468, 32,351,732, 352, 46,335,732, 54,46, 25,72 
36,46, 37, 72,38, 46,21,46, 22, 72,25,46,24,72 
25,44, 26, 72,27,46,29,72,11,72,12, 46, 13,72 
14,46,15,72,16, 46,17,72,18,46 


FOR M=1 TO 4sREAD X:N(M)=X:NEXT 


DATA 


CO=0: 
Q(22)=C 
Q(22)=C 
Q(24)=C 
Q¢24)=C 


ie 
IF 
IF 
[F 


~11,-9,11,9 
HU=0: RETURN 
AND @(11)=E 
AND Q(13)=E 
AND @(135)=E 
AND @(15)=E 


THEN A= 


THEN A=22:M=11:FL=1: RETURN 
22: M=123FL=1: RETURN 
THEN A=24:M=13:FL=1:RETURN 
THEN A=24:M=15:FL=1: RETURN 


1: RETURN 
1: RETURN 


— 
—= 


LS: 
17 


So: 


"6)=C AND (C15) =E THEN A 


ona 


Tea 


131 


FL= 


=26:M 


AND @¢17)=E THEN A= 


=C 


O25) 


RETURN 


“4 ( ) 


ie 


a Gis 


- 
ve 


12 


TO L0OQ003;NEXT QO: RETURN 


1 


OR 


2 
2 


COMPUTER: 
HUMAN: 


\ 
3 


COMPUTER: 
HUMAN: 


Mm ©-O ¢O eM e-GE 


°-® -H e wy 


1234 


OmwoMae MONA =— 


mo -e em eG © @& 
Mm OO 6-O em em E 
OW «+ &) e esi «+ 


iw e “Gb OW 
vt eC> e 6 st 
7) « ° ° om MH 
ist ° e e em 
m= ee) e oT em = 


ODOMm~wonasa nn = 


DMmonmnasarmniae 


« e @ 
™ © 
°e °1oO eo ef 
mm = 
fx] <q 
es 
“mM est — — 
a& oG 
a is =e 
© 
rs! © 
ff = 


WOMwWOMNTMA & 


8 


COMPUTER: 
HUMAN: 9 


1234567 


DOmomMaA MON -— 


oro wna>yrTnnve 


Oro Wa move 


mm -O -H © GH e¢@ 


em e tf 
ee © oO 

e Fa’ 

as 

“7m 

on 

of - 


DBrmwomMmas MON = 


143 


144 


| |AWARI 


AWARI is one of a series of pebble-in-pits games generally known 
under the name of “Mancala.” The game is played from Africa to the 
Philippines, and will now move into your home, via a very clever 
computer opponent. 


PY i 
STON i 


As you can see from the sample game, which starts below, the 
game begins with six “pits” (the letters A to F and L to G) facing each 
player. Your pits are those from L to G. Each pit contains three seeds 
at the beginning of the game. Choosing any pit on your side, you pick 
up all the seeds from it, and then proceed to move in a clockwise 
direction, sowing a seed in each pit as you go past it. You do not sow 
any seeds in the pits at either end of the board, the ones which start 
off as zeroes. 

If your final seed lands opposite an empty pit, then all the seeds 
in the pit you’ve landed in become yours, and are transferred to your 
“home.” Your home is the zero to the left of the board, the computer’s 
home is the zero to the right. 

The game continues until either side is completely empty, so the 
player cannot move. At this point, the player with the largest number 
of seeds in his or her pit is the winner. The computer plays well in this 
game, but with practice you'll learn to defeat it. Don’t expect too 
many victories in the early games. : 
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Here’s a game I played against my own computer: 
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This is the listing for AWARI: 


10 GOSUB 930:REN INITIALISE 

30 GOSUB 770:REN PRINT BOARD 

40 FOR P=1 TO 500:NEXT PsREM DELAY 
50 GOSUB 140:REM COMPUTER MOVE 

60 GOSUB 770:REN PRINT BOARD 

70 GOSUB 620:REN HUMAN HOVE 

80 Cl=0sHW=0 

90 FOR C=! TO 12 

100 IF C¢7 THEN CW=CW#A(C) 

110 IF C>& THEN HW=HN+ACC) 

120 NEXT C 

130 IF CW=0 OR HW=0 THEN 510 ve 
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140 GOTO 30 

150 REN segecggesseseess 

160 REM COMPUTER MOVE 

170 GH=0:C=0 

180 C=C + 1 

190 IF A(C)=0 THEN 180 

200 12C + AIC) 

210 IF 2)12 THEN 2=Z - 12 

215 FLAG=0 

220 IF 1>6 THEN IF A(T-6)<)0 AND A(Z)=0 THEN FLAG=I 
225 IF FLAG=1 THEN IF A(Z-6))GM THEN GH=C 

227 FLAG=0 

230 IF 2¢7 THEN IF A(Z#+6)<)0 AND A(Z)=0 THEN FLAG=1 
235 IF FLAG=1 THEN IF A(Z+4))GH THEN GN=C 

240 IF C¢6 THEN 180 

250 IF 6M=0 THEN 370 

260 C=GH 

270 PRINT @ 34, "I°LL MOVE FROM "sCHRS(644C)," * 
272 SOUND RND(0) 32041, 3: SOUND RND(0) 82041, 1SQUND 5,2 
275 PRINT @ 34," “ 

280 FOR I=C TO C+AIC) 

290 IF Z>12 THEN A(Z-12)=A(7-12)+1 

300 IF 2413 THEN A(Z)=A(Z) +1 

310 NEXT 1 

320 T=CHA(C)-121F 2912 THEN 2=2~12 

330 A(C)=0 

340 B(2)=B(2) 4A (13-2): AU13-2)=0 

350 RETURN 

340 RENGEREOETNNEEEE 

370 REM NOR-SCORE MOVE 

380 W=0 

390 WEW + | 

400 C=INT<RND (0) 84) +1 

410 IF AIC) <> 0 THEN 440 

420 IF W620 THEN 390 

430 GOTO 510 

440 PRINT 2 34,"I°LL MOVE FROM "sCHRS(54+C) 

442 SOUND 6,1:SOUND 3,12SOUND RND(O) #2041, 3:SOUND RND(O) $2041, 1 
445 PRINT 2 34,° ‘s 

450 FOR Z= C TO C#A(C) 

460 IF 2413 THEN ACZ)=A(Z) +1 

470 IF 2)12 THEN A(Z-6)=A(2-6) +! 

480 NEXT 2 

490 AIC)=0:60T0 350 


500 REN Seasgsegesases 
S10 REM END OF GAME 

520 GOSUB 770 

530 PRINT 2 34,"THAT’S THE END OF THE GAME" 

540 SOUND RND(O)$20,1:SOUND RND(0) £20, 2 

550 IF B{1))B(2) THEN PRINT @ 480, YOU'RE THE WINNER!® 
560 IF B(1)¢B(2) THEN PRINT @ 480,°I°M THE WINNER!" 

570 IF B(1)=B(2) THEN PRINT 9 480,"IT LOOKS LIKE A DRAW! 
580 PRINT 9 416,"HY SCORE)"sB(2):" "sB(1)s"<YOUR SCORE" 
600 GOTO 600 

b10 REMESSEREESELESeN 

620 REN HUNAN NOVE 

630 PRINT @ 34,"WHICH PIT TO START WITH?":PRINT @ 64,° 
635 INPUT AS:PRINT @ 34,° ae 
b40 PRINT 2.96,"  ":BEASC(AS)-64 

$50 IF B¢7 OR B12 THEN 630 

660 CO=B: 2=B+A(B): IF 2)12 THEN 2=7-12 

870 M=A(Z) 

680 FOR 7=B TO BEA(B) 

690 IF 2)12 THEN A(Z-12)=A(2-12) 41 

700 IF 2¢13 THEN ACZ)=A(Z)41 

710 NEXT 7 

720 1=B+A(B)-1:1F 2)12 THEN Z=2-12 

730 IF MeO THEN B(L)=B(1) 4A(13-Z) sA(13-Z)=0 

740 A(CO)=0 

750 RETURN 

70 RENGSEASESONERESE 

770 REX PRINT BOARD 

780 PRINT 2128," A BC DE F':PRINT" 's 

800 FOR C=1 TO 6 

810 PRINT A(C); 

820 NEXT C 

B30 PRINT:PRINT B(1);" "B(2):PRINT * 
840 FOR C=12 TO 7 STEP -1 

850 PRINT ACC); 

840 NEXT C 

670 PRINT:PRINT " LK J TH 6° 

880 COPY:REM DELETE THIS LINE IF YOU DON’T WANT PRINTER COPY 
B90 RETURN. 

900 PRINT 2 34,"I MOVE FROM "sCHRS(44#6N) 

910 C=6H 

920 RENGESISEUERESESEE 

930 REM INITIALISE 


149 


150 


11 


FY 


ty 


BR 


940 CLS 

960 DIM A(12),B(12) 
970 FOR C=! TO 12 
980 AIC)=3 

990 NEXT C 
1000 RETURN 
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| | KNIGHTSBRIDGE 


KNIGHTSBRIDGE is one of the few games which I can claim I in- 
vented completely (although, of course, the idea of naming it after a 
London suburb came from the two inventors of KENSINGTON). I 
make habit of reading games books to get ideas, and often when I 
walked in the woods around London, I'd take a book with me to read 
when I felt like a rest. I was walking one Sunday afternoon near 
Ruislip Lido thinking about a passage I’d just read in a book which 
said that chess evolved from an Indian game in which the throw of a 
die dictated which piece was to move. 

From that starting point, I thought of a game in which all the 
pieces were chess knights (hence the name of the game) and a die was 
used to say which piece had to move. KNIGHTSBRIDGE evolved 
from that idea. 





It is played on a seven by seven board. The computer tells you 
which piece you must move (each piece is indicated by entering a 
two-digit number, the first being the coordinates of the square you're 
moving to down the side of the board, the second digit being the coor- 
dinates of the square across the top), and then leaves you to decide 
where you will move to. All pieces move like chess knights, and all 
moves are checked to see if they are legal before you are allowed to 
move. 

You capture by landing on top of an enemy piece. The first 
player to capture five of the enemy’s seven pieces is the winner. 
There are no multiple jumps. 

You'll find the computer plays swiftly and well. 
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This is the listing for KNIGHTSBRIDGE: 


10 REM KNIGHTSBRIDGE 

20 GOSUB 760 sREM INITIALISE 

30 GOSUB 490 :REM PRINT BOARD 

40 IF RU=5 OR CO=5 THEN 680 :REN END OF GANE 
50 GOSUB 300 :REM COMPUTER HOVE 

60 GOSUB 490 :REM PRINT BOARD 

70 IF HU=5 OR CO=5 THEN 680 :REM END OF GAME 
BO GOSUB 110 :REM PLAYER MOVES 

90 GOTO 30 

100 REN SSSRETIEeseae esas eae 

110 REM PLAYER MOVES 

120 Q=0 

130 M=RND (6) +11 

140 Q=O+1 

150 IF Q=500 THEN 680 

160 IF H(M)<>72 THEN £30 

170 PRINT"YOU MUST MOVE THE PIECE ON"H 
180 INPUT R 

190 IF N=99 THEN @=500;60T0 680 

200 REM #48 CHECK IF MOVE LEGAL 088 
210 P=0 

220 CT=! 

230 IF NtZ(CT)=N THEN P=! 


240 IF CTCB THEN CT=CT#1:60T0 230 
250 IF P=0 THEN PRINT"ILLEGAL MOVE":60TO 180 

260 IF H(N)=67 THEN HUSHU#1:PRINT*WELL PLAYED!" :FORR=110500:NEXT 
270 H(N)=46:H(N)=72 

280 RETURN 

290 REN ASEgegageraggeagegegggy 

300 REM COMPUTER MOVES 

310 010 

320 O1=0141 

330 KERND(66) #11 

340 IF Q12500 THEN 680 

350 IF H(K)<>87 THEN 320 

360 PRINT"! HAVE TO MOVE THE PIECE ON*K 

365 FOR F=1 TO 3000:NEXT F 

370 We! 

380 IF K+Z(W)<11 OR K+Z(W)>77 THEN 400 

385 IF H(K+Z(W))=72 THEN PRINT "GOTCHA!!"sFOR F=1 TO 1S00:NEXT F 
390 IF H(K#Z(W))=72 THEN CO=CO+1:G0T0 450 

400 IF WCB THEN W=W#1:60T0 380 

410 Wel 

420 IF (K+Z(WICS1 OR K#2(W)977) AND WCB THEN W=W#1:60T0 420 
430 IF H(K+Z(W))C)46 AND WCB THEN WeW#1:60TO 430 
440 IF W=B AND HiK#Z(W))() 46 THEN O1=500:GOTO 680 
450 X=ks¥=K+Z(W) 

460 HOD SMS :H(Y) 267 

470 RETURN 

4B0 REN tegeegegeggaceggsgaets 

490 REM PRINT BOARD 

500 CLS 

510 PRINT TAB(G):*NY SCORE 15°CO 

520 PRINT TAB(B);"YOUR SCORE IS*HU 

530 PRINT 

S40 PRINT TAB(A);"1 23.45 6 7° 

550 PRINT TAB(B): °---~--------- 

560 FOR H=70 TO 10 STEP -10 

570 PRINT TAB(S):H/10; 

580 FOR N=1 107 

590 PRINT CHRG(H(M#N))3° "s 

600 NEIT N 

b10 PRINT H/10 

620 NEXT H 

630 PRINT TAB(Q); *------------- 

640 PRINT TAB(Q)3"1 234567" 


660 RETURN 
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670 REM SLRTESTT Lessee set ets 

680 REM END OF GAME 

690 GOSUB 490 

700 IF HU=5 THEN PRINT*YOU HAVE BEATEN ME, YOU, HUMAN” 

710 IF CO=5 THEN GOSUB 920 

720 IF Q=500 THEN PRINT" ACCEPT YOUR WISH TO CONCEDE® 

730 IF G1=500 THEN PRINT’! CONCEDE TO A MASTER" 

740 END 

750 REM SSESERTTR TEST eee e ese ss 

760 REM INITIALISE 

770 CLS:PRINT*PLEASE STAND BY....HUMAN” 

780 DIM H(100),2(8) 

790 X=0:01=0:0=0 

800 HU=0:CO=0:REM SCORES 

810 FOR A=! 10 99 

820 IF A>77 OR A=70 OR A=60 OR A=68 OR A=49 OR A=50 THEN NEXT A 
830 IF A=59 OR A=40 OR A=48 OR A=49 OR A=30 OR A=3B THEN NEXT A 
B40 IF A=39 ORA=20 ORA=28 ORA=29 ORA=18 ORA=19 ORACL] THEN NEXT 
850 H(A)=46 

BbO IF Ad70 AND AC78 THEN H(A)=67 

870 IF A>i0 AND ACL8 THEN H(A)=72 

B75 IF A>99 THEN 890 


880 NEXT A 


B90 FOR A=1 TO B:READ Z(A):NEXT A 

900 DATA -8,-21,-12,-19, 19,12, 21,8 

910 RETURN 

920 PRINT"THIS VICTORY IS THE FIRST*:PRINT"STEP IN OUR PLAN TO"s 
930 PRINT® TAKE*:PRINT*OVER THE ENTIRE EARTH! *:RETURN 


| | REVERSI/ 
OTHELLO 


The final program in the board-games section of this book is RE- 
VERSI, which is often called OTHELLO.* Invented in the late 
eighteen hundreds, it is played on an ordinary eight by eight board. 
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When it is played on a board, you use pieces which have different 
colors on each side. The game begins with four pieces placed on the 
center squares. 

From this point on, you move by placing one of your pieces next 
to a computer piece or pieces, with another of your pieces further on. 
When that happens, all the computer pieces “reverse” to become your 
pieces. 

Here’s how it works. Suppose a line of pieces looked like this: 


OXXXX 


and you decided to put your piece (the 0) at the end of the line like 
this: 


OXXXXO0 


The computer pieces would reverse, so the line looked like this after 
your move: 


000000 


*Othello is a registered trademark of Gabriel Industries, Inc., USA and 
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il every square on the board is filled, or 
you can see, fortunes can change swiftly 
ing off your position (such as on the diag- 
i single move. 
any time, you signal this to the computer 


ayjoyable game to play. Writing in Creative 
e 1981, p. 188), David Levy tenders the 
the best games ever invented, simply be- 
jarned in no more than a minute, yet the 
aster.” He goes on to observe that although 


r than chess, it is more complex than check- 


Altnouz: —- n game is called Othello, and was “invented” 
by Goro Hasegawa in Tokyo in 1971, the only difference between it 
and: Reversi is the fact that the first four positions must be as in the 
sample game you'll see following this description. 

Back in the 1880s, when the game was first invented in London, 
two gentlemen—-Lewis Waterman and John W. Mollett—both 
claimed to be the originators of the game. Stephen Kimmel (writing in 
Creative Computing magazine, July 1981, p. 94) says he believes Wa- 
terman has the strongest case for being the inventor of Reversi, be- 
cause he had the details published first in a series of articles in the 
magazine, The Queen (which concentrated on “affairs of interest to 
ladies”). 

Regardless of who should get the credit, Hasegawa, Waterman, 
or Mollett, it is a great game, and this program (based on one written 
by Graham Charlton) puts up a spirited defense. This sample run 
shows the early stages of one game: 
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And here’s the listing of REVERSI: 


10 GOTO 740 

30 PRINT @ 384,"MY HOVE” 

40 S=Z:T=X:H=0 

00 FOR A=2 TO 9:FOR B=2 TO 9 
60 IF A(A,B)<>46 THEN 210 

70 @=0 

80 FOR C=-1 TO 1:FOR D=-1 TO 1 
90 K=0:F=A:6=B 

100 IF A(F+C,64D)<>S THEN 130 
110 K=K+l:F=F+C:6=6+D 

120 GOTO 100 

130 IF A(F#C,6+D)¢>T THEN 150 
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140 Q=0+K 

150 NEXT DsNEXT C 

160 IF A=2 OR A=9 OR B=2 OR B=9 THEN Q=082 
170 IF A=3 OR A=B8 OR B=3 OR B=B THEN Q=0/2 
180 IF (A=2 OR A=9) AND (B=3 OR B=8) THEN Q=8/2:60T0 190 
185 IF (A=3 OR A=8) AND (B=2 OR B=9) THEN Q=@/2 
190 IF Q¢H OR (RND(0)<.3 AND Q=H) THEN 210 
200 H=Q: M=A: N=B 

210 NEXT BsNEXT A 

220 IF K=O AND R=0 THEN 490 

230 IF H=0 THEN 250 

240 GOSUB 580 

250 6S0SUB 370 

259 PRINT 9 384," : 

260 PRINT 2 354, “ENTER YOUR MOVE" 

270 PRINTS INPUT R 

275 PRINT @ 354, ° . 

280 S=X:T=Z 

290 JF R=0 THEN 350 

300 IF R¢11 OR ROB THEN 260 

310 R=R+il 

320 M=INT(R/10) 

330 N=R-109H 

340 GOSUB 580 

390 GOSUB 370 

360 60T0 30 

370 REN PRINT BOARD 

380 C=0:H=0 

390 SOUND RND{0) £30, 1 

395 SOUND RND(O) $30, ! 

400 PRINT @ 30,° 1234567 8° 

450 FOR B=2 TO 9:PRENT B-L;" °: 

440 FOR D=2 10 9 

470 PRINT CHRS(A(B,D))s° "s 

480 IF A(B,D)=X THEN C=Cti 

490 IF A(B,D)=Z THEN H=H+! 

500 NEXT D 

510 PRINT B-1 

520 NEXT B 

330 PRINT" 1234567 8" 

340 PRINT 

300 PRINT @ 480, "COMPUTER ";C:" HUMAN ":H 
370 RETURN 


580 FOR C=-1 TO 1:FOR D=-1 10 1 
590 F2M:G=N 

600 IF A(FHC,64D)()S THEN 630 

b10 F=F4C:6=640 

620 GOTD 600 

630 IF A(F#C,6+D) <> T THEN 670 

640 A(F,6)=T 

650 IF M=F AND N=G THEN 470 

640 F=F-C:G=6-D:6070 640 

b70 NEXT D:NEXT C 

680 RETURN 

690 GOSUB 370 

700 IF C)H THEN PRINT "I’M THE CHANP!® 
710 IF HOC THEN PRINT "YOURE THE CHAMP* 
720 IF H=C THEN PRINT "IT’S A DRAW 

730 END 

740 CLS 

750 X=88:2=48 

760 DIN A(10, 10) 

770 FOR B=1 TO 10:FOR C=1 TO 10 

780 IF BC>1 AND C(D1 AND B&>10 AND C<>10 THEN A(B,C)=46 
790 NEXT CsNEXT B 

B00 AIS, 5)=X:A(6, EE 

B10 A(6,S)=7:A(5, 6)=2 

B20 Ps0 

830 GOSUB 370 

840 GOTO 30 
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Artificial 
Intelligence 











Artificial intelligence is a goal which has not yet been achieved. Cer- 
tainly, programs which enable computers to exhibit behavior which 
could conceivably be classed as intelligent have been written, but the 
“intelligence” has been limited and effective only within a severely 
restricted domain. That is, a computer can appear to be brainy, but 
only if you limit the environment within which it has to demonstrate 
those brains. 

Despite the claims made by some people (such as Carl Sagan, “In 
Defense of Robots,” Broca’s Brain) that human beings are, essen- 


161 


162 


tially, just well-made computers, we sense there is a wide gulf be- 
tween our own perception of our selfhood, and the total non- 
awareness that computers can have (at least at present) of their own 
existence. And it seems to me that this self-perception lies at the heart 
of at least one aspect of intelligence. 

Computers can function extremely “intelligently” in restricted 
areas. Look at the five-inch-square, hand-held chess machines. Within 
the limited domain of a chess game, a solid appearance of intelligence 
can be created. 

A common stumbling block in the work of early researchers into 
the field of artificial intelligence was that writing a program which 
emulated some aspect of human reasoning (such as a very impressive 
checkers program by Samuels) did not necessarily lead researchers 
any closer to either producing behavior which could be classed as in- 
telligent, nor toward a theoretical understanding of the processes of 
human reasoning and deduction. “Progress in producing intelligent 
behavior is not necessarily progress towards producing thought” (Nor- 
man Whaland, “When Is a Program Intelligent?,” Creative Comput- 
ing, February 1981, pp. 44-49). 

There is another way of approaching the problem, which I call 
the “if it quacks like a duck, it’s a duck” approach. In the book The 
Turing Criterion: Machine Intelligent Programs for the 16K ZX81 
(Charlton et al., Interface Publications, London, 1982), which I edi- 
ted, I answer the question “What is the Turing Criterion?” in the 
following words: 


In 1950, the English mathematician and logician A. M. Turing 
proposed what has become known as the “Turing Criterion” for 
machine intelligence. 


He said that if you were dealing with something at the end of a 
wire that could be a machine, or could be human, and you could 
not tell—from the responses coming to you over the wire— 
whether that with which you were dealing was human or 
machine, the “thing” at the other end was, by definition, 
intelligent. 


On this basis, it would be possible to class many, many computer 
programs as intelligent. Certainly those within this section of the book 
could almost pass the test, especially if you were prepared to accept 
the possibility that some pretty stupid humans were dealing with you. 

Time now to explore the worlds of Artificial Intelligence. 


| |] ELECTRONIC 
BRAIN 


ELECTRONIC BRAIN is an attempt to write a program which 
would work toward the answer to a problem, in an apparently intel- 
ligent manner. The computer is attempting to solve a problem of the 
type where you think of a numerical code, and the computer tries to 
guess it. The feedback you give its answers are as “whites” and 
“blacks,” where a white is given for a digit which is correct, but is in 
the wrong position in the code, and a black is given whenever there is 
a correct digit within the code. 

The problem is not totally straightforward, as the computer does 
not know, for certain, which digit produced which result. I wrote two 
versions of this program, one to solve three-digit codes, and a modi- 
fication of that program to solve four-digit ones. It works in a simple 
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manner (although implementing the relatively simple idea behind the 
program was not particularly easy). Every time a digit appears in a 
code which is awarded a black, every digit within that code is 
weighted so that it appears more often in future guesses. The more 
blacks in that particular code, the higher the weighting each code 
gets. A much smaller weighting is awarded if the code gets one or 
more whites. Any code getting neither a black nor a white leads to all 
the digits within that guess being totally removed from future consid- 
eration. 

As I said, the three-digit version is the basis upon which the four- 
digit program was written. Enter the three-digit one first, and then 
save it in that form, before making the needed conversion to make it 
work as a four-digit program. Whereas the three-digit version works 
reasonably well, and reasonably quickly, the four-digit program 
grinds almost to a halt toward the end, as it tries to generate codes 
which (a) reflect the weighting that previous answers have produced, 
and (b) are not codes which have been previously suggested in that 
particular run. 

Here’s the program solving a three-digit code: 


GUESS NUMBER 1 


MY GUESS IS 1 2 & 
HOW MANY BLACKS? 1 


AND HOW MANY WHITES? 0 


sUES&S NUMBER 2 


MY GUESS [5 4 3 & 
HOW MANY BLACKS? 1 


AND HOW MANY WHITES’ 0 


Jo 
ad) 
at) 


440) 


=) 
SO) 
70 
ae) 
290 


GUESS NUMBER 3S 


MY GUESS IS 7 8 9 


HOW MANY ELACKS? 1 


And this is the listing that produced it: 


REM ELECTRONIC ERAIN-3 DIGITS 

GOSUB SOO:REM INITIALISE 

REM MAKE A GUESS 

[F GUESS<3 THEN FOR Z=1 TO 3:B(Z)=Z+3xGUESS: 
NEXT Z:GOTO 60 

GOSUB 2680 

CLS 

GUESS=GUESS+1 

FRINT: PRINT 

FRINT "GUESS NUMBER" GUESS 


1OQ FRINT 


110 


PRINT "MY GUESS I[S"B¢1) sh(2) sh(S) 


L120 PRINT: PRINT 


Pay 
of ted 


120 


1 


c 


Eps INKEY 
PRINT "HOW MANY BLACKS? "; 
AS=INKEYS: IF ASS FO" ANDANS F" 1 "ANDASE #2" 


(Er SATA ESBS ATSC ANDASS ="S3"THEN 135 
140 IF H=3 THEN 570 

{50 IF B=2 THEN 190 

140 PRINT: PRINT 


1435 
17) 
17S 


5 


177 
180 
19o 
200 
“10 
mt) 
Fee) 
240 


2g 


BS INK EYS 

PRINT “AND HOW MANY WHITES? ": 

AS=INEEY$S:IF AS< >"O"UANDASS "1" ANDASE 2" 2" 
ANDAS. =" 3" THEN 175 

PRINT O¢:W=VAL (AS) 

IF WHR] THEN @=3:C(1)=B(1):C (2) =B (2) sC C3) =BC2) 

IF B+W=0 THEN C(R(1)) s0:C(8(2)) s0:C(B (3) =0:G0TO 30 

IF EGATID THEN FOR Z=1 TO S:E(Z)=E(Z) NEXT Z:A1D=E 

FOR Z=1 TO 9 

FOR D=1 TO 3 

IF B(D)=C(Z) THEN C(Z)=C(Z) + (B+W) KLO0+WHIO 

NEXT D 

NEXT Z 
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240 
27O 
<30 
290 
SOO 
210 
meO 
a) 
340 
mG) 


260 


27 
280 
OF 
400) 


410 
Azo 
430 
440 
450 
460 
4°70) 
430 
490 
WOO 
oi 
nae @) 
a Ps 
a4O 
a bend 
OO 
wit) 
eC) 
PO 
HOO 


GOTO 30 

REM FICK THREE NUMBERS 

FOR Z+1 TO 3 

Di=C(CRND (@) > 

IF D1i=O THEN 290 

D2=C CRND (@) ) 

IF D@=0O THEN 310 

IF INT(D1/10) -INT(D2/10) THEN 8B(Z)=D1 

IF INT(D1/10)“£INT(D2/10) THEN B(Z)=D2 

IF INT(D1/190)=INT(D2/10) THEN H(Z)=D1 

IF B(Z)>100 THEN B(Z)=B(Z)-100XINT(B(Z) /100) 
:GOTO 370 

IF £64Z)310 THEN B(Z)=B(Z)-10KINT(B(Z)/10):GOTO 380 

NEXT Z 

IF ECLI=HBC2?) OR BCL) =BCS) OR B(2)=8B(S) THEN 280 

IF AID=0O THEN CO=0O:FOR Z=1 TO 3:IF B(Z)=E (2) 
THEN CO=CO+1 

IF AID?=0 THEN NEXT Z:IF CO<AID THEN 280 

M=1LOOXE(1)+10X*B (2) +H (3) 

kK (GUESS) =M 

(TF GUESS=3 THEN Soo 

CO=1 

CO=(O+1 

IF K(CO)=M THEN 290 

IF CO<GUESS-1 THEN 460 

RETURN 

REM INITIALISE 

GUESS=0: 0=9: AID=0 

DIM BCS) ,C(9),E(3S) KF (100) 

FOR Z=1 TQ 9 

C(Z)=2 

NEXT Z 

RETURN 

FRINT: PRINT 

PRINT "I GUESSED YOUR CODE OF"E(1)3B¢(2)38¢(3) 

PRINT TAB(S)3;"IN JUST"GUESS"GUESSES" 

FOR Z=1 TO S000:NEXT Z:CLS 


This is the listing to solve four-digit codes, which is based on the 


three-digit one. Note the addition of “— 1” in line 420 of this program, 
as well as the other changes: 


{QO REM ELECTRONIC BRAIN-4 DIGITS 


20 GOSUB S10:REM INITIALISE 
30 REM MAKE A GUESS 
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0) 


IF GUESS=O THEN FOR Z=1 TO 4:8(Z)=Z:NEXT Z:GOTO 70 
IF GUESS=1 THEN FOR Z=1 TO 4:8(Z)=Z+4:NEXT Z:GOTO 7 


460 GOSUB 280 

7O CLS 

BO GUESS=GUESS+1 
20 FRINT: PRINT 


100 
110 
1/20 
130 
140 
150 
160 
170 
180 
190 


200 


LOD 
210 
220 
250 
240 
250 
260) 
270 
280 
290 
Tele) 
210 
we) 
Rc ©) 
340 
IO 
260) 
270 


380 
390 
400) 


FRINT "GUESS NUMBER" GUESS 

PRINT 

PRINT "MY GUESS IS"EH(1)sB(2)3B(3) 38(4) 
PRINT: PRINT 

INFUT "HOW MANY BLACKS";8& 


IF BR=4 THEN S80 

IF B=35 THEN 190 

PRINT: PRINT 

INPUT "AND HOW MANY WHITES" 5W 

IF W+Rh=4 THEN @=4:C0¢1)=8(01):C(2)5B(2) 5 

C(3) =B (3) 10 (4) =H (4) 
IF B+W=0 THEN C(B(1))=0:C(H(2))=0:3 
C(B(3))=0:C(B(4))=0:GOTO 30 

IF B8(2)=8(4) OR B(3)=B8(4) THEN 290 

IF HSAID THEN FOR Z=1 TO 4:6(Z)=B(Z)=NEXT Z:AID=H 
FOR Z=1 TO 9 
FOR D=1 TO 4 

IF B(D)=C(Z) THEN C(Z)=C(Z) + (B+W) K1LO004WK10 
NEXT D 
NEXT Z 
GOTO 30 
REM FICK FOUR NUMBERS 
FOR Z=1 TO 4 
D1=C¢(RND (@) ) 

IF D1=0 THEN 300 

2=C (RND(Q) ) 


IF D2=0O THEN 320 
IF INT(D1/10) > INT(D2/10) THEN B(Z)=D1 
IF INT(D1/10) < INT(D2/10) THEN B(Z)=D2 


IF INT(D1/10) INT(D2/10) THEN B(Z)=D1 
IF H(Z) +100 THEN B(Z)=B(Z)-100XKINT(B(Z)/100): 
GOTO 370 
IF B(Z) 210 THEN B(Z)=B(Z)-10XINT(B(Z)/10)2GOTO 380 
NEXT Z 
IF BCi)=B(2) OR B(1)=B(S) OR B(1)=B(4) 
OR B(2)=E(3) THEN 290 
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AOS 
410 


420 
4h.30) 
44) 
ASO 
40 
470 
460 
L490) 
SOO 
aid 
aC) 
a Pd 
oAO 
sa) 
540 
a7 
BO 
FO 
600 
10 
620 
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IF B(2)=8(4) OR BCS) =B¢(4) THEN 290 

IF AID?0 THEN CO=0:FOR Z=1 TO 4:1F B(Z)=E(Z) 
THEN CO=CO+1 

IF AID?O THEN NEXT Z:IF CO<AID-1 THEN 290 

M=1O0OKE (1) +100KBR (2) +10K%B (3) +B (4) 

kk (GUESS) =M 


IF GUESS=3 THEN SOO 
CO=1 

CO=CO+1 

IF Kk¢(CO)=M THEN 290 


IF COWGUESS-1 THEN 470 
RETURN 

REM INITIALISE 
GUESS=0: =9: AID=0 

DIM B44) ,C(9),E (4) ,E (100) 
FOR Z=1 T0 9 


C(Z)=2 

NEXT Z 

RETURN 

PRINT: PRINT 

FRINT “I GUESSED YOUR CODE OF "B(1);8(2);B(3):B8(4) 


PRINT TAB(S) 53 "IN JUST" GUESS"GUESSES" 
FOR Z=1 TO S000:NEXT Z 
CLO: END 






THE POSTULANT BESEECHED NEGLECTFULLY 
IN THE ENEMY'S CAMP... 
WANTING FOR A DOGMATIST, 
TO RECANT THE DJINN... 
DISPENSING WITH, THEN ERODING 
»+e ENCLOSING, WOUNDING. 


Next we'll have our poetry writing program. This demands no interac- 
tion from you, except for that of admiring the wonderful (!) output of 
nthe program. Here’s a sample of the kind of verse it produces: 





THE ASPIRANT CRAVED SUCCESSFULLY 
IN THE RACECOURSE... 
PRAYING FOR HOBSON'S CHOICE, 
TO QUENCH THE GHOST... 
EMPTYING, THEN BLIGHTING 
.+ eHANDCUFFING, ROTTING. 


THE ASPIRANT ENTREATED HALTINGLY 
IN THE HIPPODROME... 
PRAYING FOR A BLIND BARGAIN, 
TO RECANT THE NATAD... 
WASTING, THEN BREAKING 
»++ RESTRAINING, UNDERMINING. 


1 dp 
eee 
, 


THE CONVOY CLAIMED SLAVISHLY 
IN THE COURT... 
PRAYING FOR AN ASTRAL INFLUENCE, 
TO DEMUR THE FAUN... 
EXHAUSTING, THEN GNAWING 
«+e IMPOUNDING, BREAKING. 
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THE POSTULANT ENTREATED ENDLESSLY 
IN THE PLAYGROUND... 
WAITING FOR HOBSON'S CHOICE, 
TO RELINQUISH THE SATUR... 
DISPENSING WITH, THEN DAMAGING 
..COERCING, BREAKING. 


THE BEGGAR CLAIMED HALTINGLY 
IN THE THEATRE OF WAR... 
ASKING FOR FORTUNE'S WHEEL, 
TO BACK THE NAIAD... 
DISPENSING WITH, THEN BREAKING 
oe -MUZZLING, WOUNDING. 





This is the listing of AMANUENSIS. Once you've run it for a 
while, you may well wish to change the words in the DATA state- 
ments, to vary the kind of poetry it produces. 


REM AMANUENS TS 


20 CLS:DIM A$ (12), Z$(10) 
ZO REM OOOO OOOO OG IOK 

AQ RESTORE:GOSUB 450:A%(1)=B¢ 

50 GOSUB 570:A8 (2) =E$ 

60 GOSUBR 570: A% (3) =BS 

70 GOSUB 570: AS (4) =Bs 

80 GOSUB S70:A$ (5) =BS 

90 GOSUE 570: A8(S) =BS 

100 GOSUE S70:A$(7)=B¢ 

110 GOSUB 570:A%(8) =B¢ 

120 GOSUE 570:A%(9) =Bs 

130 GOSUB 570:A% (10) =H¢ 

140 GOSUB 570:A%(11)=BS 

i145 RESTORE:FOR I=1 TO 100:READ V$:NEXT 
150 GOSUB 570:A$(12) =BS 

1460 REM GOO OOOO IOOOKIOKK XK 

170 PRINT "THE "sA$(1)s" "“SAS(2)E" "2AS(S) 
190 PRINT " IN THE "sAS(4)3"..." 

190 PRINT AS(5)3" FOR "sAS(45)3"," 

200 PRINT " TO “sA%(7)3" THE "sAS(B8)s"..0" 
210 PRINT A$(9)3", THEN "3A$(10) 

220 FRINT " wee "SABCLL) 5S", "SASCLE)D ETL” 
220 PRINT: PRINT: M$=INKEY$:M$=INKEY$ 

240 REM OOO OOOO OOK KICK 


170 


20 


20 


260 
270 
280 
290 
3500 


310 
220 


OQ 


240 


2OQ 


a7) 
S80 


390 
400 
410 


4220 
4350 


440 


ASO 
450 


470 
480 


490 


PRINT:FRINT "PRESS 

IF INKEYS<>"C" THEN 

CLS:GOTO 40 

REM KAXKKKKKKKKKKKKKKKKKKKKK 

DATA" APPLICANT", "SUPPLICANT", "MENDICANT", 
"BEGGAR", "ASPIRANT" 


*"C* TO CONTINUE" 


2Io 


DATA "CLAIMANT", "POSTULANT", "CONVOY", "SENTINEL", 
"CASTELLAN" 

DATA "ENTREATED", "BESEECHED", "WAITED", “BESOUGHT", 
"CONJURED" 


DATA "PRESSED", "URGED", "CRAVED", "DEMANDED", "CLAIMED 
DATA" SUCCESSFULLY", "COURAGEOUSLY", "FROGRESSIVELY” 

. "FOOLISHLY" 
DATA "ENDLESSLY", "HELPLESSLY", "HALTINGLY", 


| "SLAVIGHLY " 
DATA “NEGLECTFULLY", "PRIDEFULLY" 
DATA"FIELD", "BATTLEFIELD", "PLAYGROUND", "CIRCUS 
RING", "COURT" 


DATA "BEAR GARDEN", "ENEMY*S CAMP", "HIFFODROME", 


" RACECOURSE" 
DATA “THEATRE OF WAR" 
DATA "WAITING", "ASKING", "HOPING", "WATCHING" 
» "SCREAMING" 
DATA "CRYING", "STARING", "WANTING", "STAYING", "PRAYING 
DATA "THE FATES","FORTUNE’S WHEEL", "HOBSON'S CHOICE" 
DATA "THE STARS", "AN ASTRAL INFLUENCE", "A BLIND 
BARGAIN" 
DATA “A SPELLBINDER","A MALEVOLENT SPIRIT", "A ZEALOT 
DATA "A DOGMATIST” 
DATA "QUENCH", "RECANT", "FORSWEAR", "ABJURE", 
"RENOUNCE", "WAVER 
DATA "RELINQUISH", "DEMUR", "SWERVE", "BACK" 
DATA "GHOST", "SPECTRE", "HOBGOBLIN", "DJINN", 
"LEPRECHAUN" 
DATA "PIXY", "FAUN", "SATUR", "DRYAD", "NAIAD" 
DATA "WASTING", "SPENDING", "USING", "CONSUMING", 
"DRYING UF" 
DATA "RUNNING OUT", "EMPTYING", "EXHAUSTING" 


" SQUANDER ING" 
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200 DATA "DISPENSING WITH" 
210 DATA "CORRODING", "ERODING", "BLIGHTING", "ROTTING". 
"GNAWING" 


520 DATA "UNDERMINING", "SHAKING", "BREAKING", "DAMAGING" 
, "WOUNDED" 
SZO DATA "RESTRAINING", "COERCING", "CHECKING", "CHECKING" 


S40 DATA “DETAINING", "ENCLOSING", "IMPOUNDING" 
» HANDCUFF ING" 


S50 DATA "MUZZLING", "GAGGING", "SUPPRESSING" 
660 REM OC OC OOOO OOK 
570 FOR N=1 TO 10 
580 READ Z$(N):NEXT N 
590 N=RND (10) 
600 B=Z%(N) 
610 RETURN 
A \ THE APPLICANT PRESSED PRIDEFULLY 
RN IN THE ENEMY'S CAMP... 
WATCHING FOR A-SPELLBINDER, 
TO DEMUR THE HOBGOBLIN... 
DRYING UP, THEN ROTTING 
...HANDCUFFING, DAMAGING. 













THE CLAIMANT CRAVED SLAVISHLY 
IN THE BEAR GARDEN... 
CRYING FOR HOBSON'S CHOICE, 
TO WAVER THE DRYAD... 
PR DRYING UP, THEN ERODING 


a 


ROS 05. J RESTRAINING, ROTTING. 


THE MENDICANT CONJURED HELPLESSLY 
IN THE COURT... 
PRAYING FOR A DOGMATIST, 
TO QUENCH THE LEPRECHAUN... 
RUNNING OUT, THEN ERODING 
..e IMPOUNDING, BLIGHTING. 


Dice Games 


Dice games— for high stakes, low stakes, or none—have proved pop- 
ular throughout history. Whether the dice were made from stone or 
wood, or carved from the bones of a beast killed for food, whether 
they had four important sides or six, dice have proved a diversion for 
countless men throughout time. 








The dice, physical means of demonstrating the waywardness of 
chance, have also found employment in foretelling the future, and 
like all oracles, probably bear some responsibility for changing the 
tide of history. 

At Troy the Greeks played with dice, as did Mark Antony at 
Alexandria. Italy and France led medieval Europe in their love for 
dice, and devotion to the six-sided cubes has continued up to the pres- 
ent day. In this section of the book, we’ll be investigating ways of 
using the random number generator of your computer to take the 
place of physical dice. However, you'll discover that the dice are no 
less compelling because they exist only within the software of your 
computer rather than in a more gross physical form. 

Playing against the computer, instead of against another human 
being, changes the “feel” of dice games somewhat. Not having to pay 
up when you lose is one of the real advantages! 


173 


174 


| | NO SWEAT 


The name of this game—NO SWEAT—comes from one of the early 
English names for the game from which this is derived. Known as 
“sweatcloth,” the game, when first played in England, used three dice 
within a wooden “shoe.” The most common variation of this game is 
now seen in US gambling casinos, where it is called “birdcage,” be- 
cause of the equipment which is used. 

In birdcage, three dice are held within a metal cage which can 
spin about a central axis. Once bets have been laid, the cage is ro- 
tated. This is supposed to ensure that the dice are spun properly, as 
they are not actually touched by a casino operator. 





Betting in birdcage, and in NO SWEAT, is fast and simple, and 
despite the fact that you might think the odds are in your favor as a 
player, you'll quickly learn how easy it is to lose your shirt. 

You place a bet of a specified amount (see lines 50 and 60) up to 
the size of your stake (held by the variable M, for money—-see lines 
30 and 250) and then choose a number between one and six. The 
amount of your bet is subtracted from your stake, and then the three 
dice are rolled. For each one which lands showing your number, you'll 
have an amount equal to your bet returned to you. 

As you can see, this means you have to throw one die with your 
number showing to break even, and two to actually make some 
money. The need to throw the same, chosen number twice is what 
gives the casino such a good edge in this game. 
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Line 50 asks you how much you'd like to bet, and the variable A 
is assigned to your choice. This is compared with the money you actu- 
ally have (in line 60) to see if you are trying to bet more than you 
have on hand. Having passed that hurdle, your bet is subtracted from 
your stake in line 70 and then the computer asks you (line 50) to 
enter your bet. 

The C loop, from lines 100 to 180, rolls the dice and compares 
each roll with your number, reporting to you after each roll. Your 
winnings (if there are any) are also added in this loop. 

After each round of the game, your money (M) is compared with 
250 (if you’ve got more than $250 you've exceeded the house limits 
and are therefore excluded from future play) and with zero (those who 
have no money are not allowed to play further). If, however, you do 
not have more than 250 nor less than zero, you’re able to continue 
playing. 

And here’s the listing so you and your computer can take part in 
a round or two: 


10 REM NO SWEAT 

30 M=30 

40 CLS:GOSUB 240 

JO INPUT*HOW MUCH WOULD YOU LIKE TO BET*;A 

60 IF ASM THEN 50 

70 N=N-As PRINT: PRINT 

80 INPUT"WHICH NUMBER ARE YOU BETTING ON";B 

90 IF B¢l OR BD & THEN 80 

95 GOSUB 280 

100 FOR C=1 TO 3 

110 W=0 

120 GOSUB 2000:PRINT@25, "AIM-"sB 

130 PRINT:PRINT*DIE"C*FELL"D 

140 IFD=B AND C=1 THEN W=A:PRINT® SO YOU BREAK EVEN* 
150 IFD=B AND C)1 THEN W=A:PRINT® SO YOU WIN $"W 
160 H=N+W 

170 GOSUB 240 

175 GOSUB 280:GOSUB 280 

180 NEXT C 

190 G0SUB 280:GOSUB 280 

200 IF N>250 THEN 310 

210 IF MO THEN 40 

220 FOR X=1 TO B:PRINT*THE GAME IS OVER,’COS YOU'RE BROKE!*:NEXT 
230 6OTO 230 

240 PRINT°SSSSOReseeeeseasasaasateesy 


250 PRINT" YOUR STAKE IS NOW $°M 
260 PRINT 'SUSUSgerageeagggsgegggggagye 

270 RETURN 

280 FOR P=1 TO 1000 

290 NEXT P 

300 RETURN 

310 FOR J=1 10 30 

320 PRINT*YOU’VE TOPPED $250!" 

330 PRINTTAB(J}: "WELL DONE! !* 

335 FOR I=1 10 100:NEXT 

340 NEXT J 

350 COLOR, 1:FORI=1T0500:NEXT: COLOR, 0:FORI=110500:NEXT:GOTO 350 
2000 REM DICE THROM 

2010 CLS:COLOR, ! 

2020 PRINT TAB(14);"DIE*C 

2030 D=RND (5) 

2040 FOR 1=28810 TO 28822:POKE 1, 140:NEXT 1 

2050 FOR 1=28810 TO 29066 STEP 32:POKE I, 13Q:NEXT I 

2060 FOR 1=29066 TO 29078:POKE 1,131:NEXT 1 

2070 FOR 1=28822 TO 29078 STEP 32:POKE 1,133:NEXT 

2080 POKE 28810,142:POKE 29046, 139:POKE 29078, 135:POKE 28822, 141 
2090 IF D=1 THEN 2150 

2100 IF D=2 THEN 2140 

2110 IF D=3 THEN 2170 

2120 IF D=4 THEN 2180 

2130 IF D=5 THEN 2190 

2140 IF D=é THEN 2200 

2150 POKE 28944, 143:60T0 2220 

2160 POKE 28876, 143:POKE 29012, 143:6070 2220 

2170 POKE 28876, 143:POKE 28944, 143:POKE 29012,143:80T0 2220 

2180 POKE 28876, 143:POKE 29004, 143:POKE 28804, 143:POKE 29012, 143 
2185 6070 2220 

2190 POKE 28876, 143:POKE 29004, 143:POKE 28884, 143:POKE 29012,143 
2195 POKE 28944, 143:G0TO 2220 

2200 POKE 28876, 143:POKE 29004, 143:POKE 28884, 143:POKE 29012, 143 
2210 POKE 28940, 143:POKE 28948, 143 

2220 FOR I=1 TO 2500:NEXT I:COLOR, O:CLS:RETURN 
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| | CHEMIN DE 
COMPUTER 


CHEMIN DE COMPUTER is based, as I’m sure you've realized, on 
Chemin de Fer. In this game, you and your computer take it in turns 
to roll five dice, adding the pips up as you go. You are aiming to get a 
higher total than the computer. 

However, this game is not just a simple “add the pips” one. Any 
die which falls showing a five or a two must be thrown again, and your 
total is just the final digit of the answer (that is, a total of 27 is counted 
as 7, and a total of 13 is counted as 3). 

There are three special totals—7 (a Natural), 8 (La Petite), and 9 
(La Grande). The names are only bestowed when the relevant total is 
achieved on the first throw (1.e., the dice which came up with 5 or 2 
have not been, and are not in this case, rethrown). You (and the com- 
puter) always stand on a 7, 8, or 9 thrown with the first toss of the five 
dice. 
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As in many other programs in this book, there is a delay loop 
routine at the end of the listing which is called a number of times 
throughout a game to improve the speed with which the game ad- 
vances, and to give you (in many cases) a chance to read on the screen 
what is going on before the program races on, clearing the screen, and 
leaving you quite unsure of exactly what has just happened. In this 
program, there are two loops, one of which is longer than the other, 
and which also prints a couple of blank lines before returning to the 
main program. 

Line 330 calls a delay and then clears the screen before incre- 
menting the counter GAME in the next line. You are told which game 
it is by line 350 and then the computer announces that, because it is 
taking the role of the banker, who always goes first, it will take the 
first roll. The “roll the dice” subroutine from line 70 is then triggered. 
You'll see that the loop counter G is used (line 80) to set the variable 
A to a randomly chosen value between one and six each time through 
the loop. If the die comes up with five or two (line 90) then it is reset 
to zero, before the value is printed by the following line. 

The running total is clocked up on variable D, and then leading 
digits are stripped from this (i.e., 27 is cut down first to 17, then to 7) 
by line 150. The changing total is printed on the screen each time. 
After a delay the computer prints up “Total on the first roll is...” 
and then checks (lines 180, 190 and 200) to see if one of the special 
rolls has eventuated. 

If so, a message to that effect is printed, If not, the computer gets 
to line 210 where it can see if any dice have to be rolled again (C is 
incremented by one each time a 2 or a 5 is rolled, see line 90). If 
there are none which have to be re-rolled, the computer moves on to 
line 410 to print out “So my final total is... .” If, however, C is not 
equal to zero, then the computer runs through another loop (240 to 
300) to throw those dice again. Once again, any dice coming up two or 
five are discarded (line 280). 

Once the computer has had its roll, it is your turn to play. Your 
involvement, actually, is pretty small at this stage. Once you've 
pressed RETURN (lines 440 and 450) the computer takes over for 
you, using the same routine near the beginning of the program to roll 
the dice for you, and incrementing your total as it does so. 

Once both of you have had your go, the computer then decides if 
it has beaten you, or you have defeated it, or whether the two of you 
have drawn (“Standoff”). The aim of CHEMIN DE COMPUTER is 
to win the majority out of nine scoring games (and a Standoff game 
does not count as a scoring game). 

“Now the totals so far in Chemin de Computer are... .” you are 
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70 
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told by line 670 and—if nine scoring games have not been played— 
the computer makes some comment on the game (“Looks like I’m in 
front...” or “And you seem to have the edge. . .”) before returning 
to the main program. 

Once a total of nine scoring games has been detected (by line 
700) then the routine from line 750 comes into action. “Well, old 
buddy, we seem to have come to the end of the game .. .” the com- 
puter tells you, then determines who has been the overall winner. 

You’re in good company when you play this game. Baccarat, 
from which Chemin de Fer was derived, was first introduced into 
France from Italy in about 1490, during the reign of Charles VIII. 
The Italian game was called “Baccara.” 

Here is the program listing: 


REM CHEMIN 

CLS 

GAME=0 

B1=O0:F1=0 

GOTO 330 

D=0: C=0 

FOR G=1 TO Ss:A=RND (4) 

IF A=2 OR A=S THEN C=C+1 


100 FRINT As:SQOUND 31,1 

110 GOSUB 9Y=O 

120 [F A=2 OR A=S THEN A=0 

1=O0 D=D+A:NEXT G 

140 FRINT:FRINT D; 

150 IF D9 THEN D=D-10:FRINT:PRINT D:GOTO 150 

160 GOSUB 900 

170 PRINT:PRINT “TOTAL ON THE FIRST ROLE IS"D 

180 IF D=9 THEN FRINT “AND THATS LA GRANDE... ":RETURN 
190 IF D=8 THEN FRINT “AND THATS LA FPETITE...":RETURN 
200 IF D=7 THEN FRINT “AND THATS A NATURAL... "RETURN 
210 IF C=0 THEN RETURN 

“209 GOSUB 930 

2350 PRINT:FRINT C'MUST BE ROLLED AGAIN" 


~ 


259 FOR Z=1 TO CsSOUND 3,1:NEXT 2 


<40 FOR A=1 TO C 

“JO GOSUE 930 

~$0 E=RND (4) 

270 PRINT &;:SQUND 29,1 


230 


IF E=2 OR ES THEN Eo 


290 D=D+E 
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SOQ 
310 
20 
Bod 
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360 
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380 
390 
400 
419 
420 
ASQ 
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4435 
4350 
4460 
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620 
630 
640 
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NEXT 


IF D>? THEN D=D-10:PRINT D3:GOTO 310 
RETURN 


GOSUE 


9205CLS 


GAME=GAME+1 


PRINT: 


PRINT 
PRINT 
PRINT 
GOSUB 
GOSUB 


PRINT: 


GOSUE 
PRINT 


PRINT ">32> THIS IS GAME"GAME" <<<<" 
OOOO OOOO OOK KK OK KK" 
" NOW, I*LL ROLL AS BANKER..." 


OOOO OOOO OOOO KOK" 
7OQ 

900 

FRINT "SO MY FINAL TOTAL IS"D 
900 


"UO KKK" 


A$=INKEY$: AS="" 


PRINT 


AS=INKEY$:1F AS<>"R" 


FRINT 
J=D 

GOSUE 
GOSUB 


FRINTs 
PRINT: 


GOSUB 
PRINT 
GOSUB 
PRINT 
GOSUB 
PRINT 
PRINT 


IF J=D THEN FRINT 


" PRESS *R* TO ROLL YOUR DICE” 
THEN 445 
"OOOO OOO OOOO IGG! 


930 
70 
PRINT 
RINT 
930 
"COPUTER", "HUMAN" 

900 

J,D 

930:F RINT 
"“SSSSSESSSHHSSHSSHSSSHSSHSSHSHHHSS " 
TAB(3)$ 


"SO YOUR FINAL TOTAL IS"D 


"THATS A STANDOFF": GOTO 620 


IF J>D THEN FRINT "I°M"3:51i=Bitl 
IF DoJ THEN PRINT "YOU* RE"; :P1i=FP1+i1 


PRINT 
PRINT 


PRINT: 


GOSUB 
FRINT 
PRINT 
PRINT 


PRINT: 


GOSUE 


" THE WINNER THAT TIME!" 
"“SELEASSSHAPHSSSSSHHASSSHSHDHSSS " 
PRINT 

9a0 

" NOW THE TOTALS SO FAR IN" 

" CHEMIN DE COMPUTER ARE” 

B1i"FOR ME, AND"F1i"FOR YOU..." 
PRINT 

930 


IF HitPi=9 THEN 750 


710 


720 


7M) 
740 
7a 
760 
770 
730 
79OQ 
BOC) 
B10 
S20) 
825 
3 Pe 
835 
37 
34} 
SO 
B40 
70 
880 
GOO 
900 
910 
920) 


PSO 


IF BHizPi THEN FRINT " LOOKS LIKE I°M IN FRONT!" 
IF Pi>B1 THEN FRINT " AND YOU SEEM TO 
HAVE THE EDGE!" 
GOSUB 900 
GOTO 230 
REM END OF GAME 
PRINT: F RINT 
FRINT “WELL, OLD BUDDY, WE SEEM” 
PRINT "TO HAVE COME TO THE END" 
FRINT "OF THE GAME...WITH A TOTAL" 
PRINT "OF NINE SCORING ROUNDS..." 
GOSUB 9OO 
IF FPi3Bi THEN PRINT “AND, FOR ONCE, IT 1S" 
IF FPi>Hi THEN PRINT "YOU HAS BEATEN ME!":GOTO 840 
IF Bi>F1 THEN PRINT “AND, ONCE AGAIN, THE" 
IF BizPi THEN FRINT "MIGHTY MACHINE PROVES THE" 
IF Bi2Fi THEN PRINT "SUPREME CHAMPION! !" 
GOSUB 900 


FRINT “THANKS FOR THE GAME, OLD" 
PRINT "“BUDDY,WE MUST DO IT AGAIN" 
PRINT "SOME TIME, WHEN YOU FEEL" 
PRINT “LUCKY osc e wie ecem Sele oe ares . 
END 

FOR Z=1 TO 1500sNEXT Z 

FRINT: PRINT 

RETURN 

FOR Z=1 TQ 7S5Q:NEXT Z:RETURN 
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| |ONE-AND-TWENTY 


Our dice games continue now with ONE-AND-TWENTY which, as 
you realized the moment you read the title in the introduction, is a 
dice version of blackjack. 

The game is simple, but demands a degree of cool thinking, as 
well as the ability to guess which numbers are going to come up next 
when the die is rolled. In ONE-AND-TWENTY, you are playing 
against the computer. 

You are always given the first go. You roll the die as many times 
as you like, aiming to get a total as close as possible to, but not ex- 
ceeding, 21. You can stop adding to the total whenever you like. 

If you exceed 21 (that is, you “bust”) then the computer wins that 
round automatically. A game consists of five rounds, and the winner 
of the most rounds, naturally enough, wins the game. 

After initializing some variables (including HS for the human 
score and CS for the computer score) in lines 20 and 30, and clearing 
the screen in line 40, the computer asks you to “Press ‘R’ to roll, ‘S’ to 
stand.” The word “Stand” means you are happy with the total you’ve 
achieved so far and you'll stay with it, giving the computer a chance 
to try and beat you. You'll soon learn that the speed with which you 
enter an R or an S can affect the number which is thrown, because 
the delay between the “Press ‘R’ to roll...” and the time you actu- 
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ally do press an R or an S is used to create a number (N) which— 
together with your current total—is used to seed the random number 
generator for the next dice roll. 

The lines from 50 to 170 control your dice-rolling, and the com- 
puter only exits this cycle when you decide to stand. The whole of the 
computer's game-playing logic is held within line 180, which deter- 
mines whether it is worth risking a bust to try and exceed your total. 
If it decides to roll, the lines from 190 to 250 control this. 

Once the computer decides it has had enough of that, it uses lines 
260, 280 and 290 to determine who has won. If both your scores are 
the same, or both of you are over 21, then the round is counted as a 
dead heat (line 320 tells you this), and neither CS nor HS is incre- 
mented. Line 280 spots a computer win, adding one to CS and print- 
ing “I,” while the next line adds one to HS and prints “You.” The 
mysterious “I” and “You” are used as the first part of the sentence 
concluded by “win!!!” in line 300. 

As in CHEMIN DE COMPUTER, where the aim was to get the 
best out of nine scoring games, in ONE-AND-TWENTY, the in- 
tention is to score wins in the majority of games out of five. Line 390 
looks to see if this has happened, and if so sends the program to line 
450 where the result of the game (with a sarcastic comment or two) is 
printed. If five scoring games have not been played, line 400 asks you 
to “Stand by for the next round...” and after a brief pause (line 
430), the next round 1s upon you. 


This listing will enable your computer to challenge (and probably 
beat) you in ONE-AND-TWENTY: 


10 REM ONE-AND--TWENTY 

20 Hb=O; CS=O 

SO H=O3 COs N= 

40 CLS 

wO PRINT "FRESS *“R* TO ROLL, *S* TO STAND" 
60 D$sINKREYS: DB6=-INRKEYS 

7] AS=INKEY 4 

BO TF Ate > "R" AND AGE > "S" THEN 70 

90 IF A$="S" THEN CLS:PRINT "YOUR TOTAL [S"H:GOTO i680 
110 GQSUH 430 

L2O R=RND (S$) 

L2Q FRINT "YOU ROLLED A"R:SOUND R+12,R 

140 H=H+R ) 

130 PRINT "SO YOUR TOTAL IS"H 

160 GOSUB 430 

L170 FPRINT:GOTO Sa 
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180 


190 
20Q 
210 
Poa W 
2oQ 
240 
20) 
260) 
270 
280 
290) 


SOO 
310 
329 
PCT @) 
340 
Rial 9) 
360 
a7 
280 
390 
400 
410 
420 
430 
440 
430 
460 
A7(Q) 
480 
490 
495 
sO 
J0S5 
wO7 


v1O 
ra 


we) 


340 


IF CoH AND C22 OR C221 OR H>21 OR H=21 
AND C=21 T HC 
R=RND (4) Ree 


GOSUB 4:30 
PRINT:PRINT "I ROLLED A"R 
C=C+R 
FRINT "SO MY TOTAL IS"C 
GOSUB 430 
GOTO 180 
IF H=C OR He21 AND C321 THEN 320 
GOSUB S10 
IF (C3H OR H?21) AND C<22 THEN FRINT ,."I"33:CS=CS+1 
IF (C&H OR C221) AND H£22 THEN PRINT , 
"YOU" s sHS=HS+1 
PRINT " WIN!!!" 
GOTO 330 
PRINT "THAT ROUND IS A DEAD HEAT....-NO ", "SCORE" 
GOSUEB 430 
GOSUB 310 
PRINT “AFTER THAT ROUND, THE GAME SCORE IS" 
GOSUB 430 
PRINT TAB(7)3"YOU:"HS", AND ME"CS 
GOSUB S10 
IF CS+HS=S5 THEN 450 
PRINTEPRINT "STAND BY FOR THE NEXT ROUND..." 
GOSUB 430:GOSUB 4350 
CLS:GOTOQ 30 
FOR O=1 TO SOO:sNEXT O 
RETURN 
FRINTSFPRINT "“THAT*?S THE END OF THE GAME" 
PRINT:PRINT “FINAL SCORES: " 
PRINT , "YOU: "HS 
PRINT ," ME: "CS:PRINT 
IF CS?2HS THEN PRINT “AND I DEFEATED YOU, HUMANOID'' 
IF CS?+HS THEN GOTO S30 
PRINT "AND REMARKABLY, A MERE HUMAN" 
PRINT "BEAT THE MACHINE! !":SQUND 3,3 
GOSUB 43090:GOSUB 430:GOSUB 430:GOSUB 430: 
GOSUB 430: END 
PRINT: PRINT "OKO KOK KKKKK KKK KKK KK KK KKK! 
sFRINT 
RETURN 
SOUND 28,2:SOUND 28,2:SQUND 25,4:SQUND 30,2 


SOUND 25, 6:END 
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| | MALIBU 


Roll the dice now for a few rounds of Malibu. You and the computer 
take it in turns to roll three dice each. Various dice combinations, and 
the total of the three dice, are worth points. For example, if the total 
of the pips showing is 13 (“Lucky Joe”) on the computer’s dice, the 
computer gets six points, and the human loses six points. 

You start the game with 50 points each, and there are five rounds 
to a game. As I said, there are certain winning combinations (such as 
three sixes, called a “high roller”) and certain winning totals (such as 9 
or 12, a “straight road”). You can score more than once from a single 
roll, so if your total of nine was gained by rolling two fours and a one, 
you'd get the “straight road” score of three, plus another three for 
getting “two of a kind.” 

The only exception to this is rolling three of a kind (“triple 
crown”). You can score most of the other possible combinations, al- 
though you cannot get “two of a kind” and “triple crown” from the 
same roll. 

Now this may all seem very confusing. It is much easier to play 
than it is to read about, because the computer rolls the dice for you, 
works out what the score should be, and keeps the tally. All you have 
to do is bite your fingernails as you watch the computer defeating you. 
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WELCOME TO THE GAME OF MAL TEU 
WHICH f$ FPLAYED WITH THREE DICE. . 


WHAT 1S YOUR NAME’ TIM 


Ok, TIM, FRESS THE SPACE 


RAR WHEN YOURE READY TO FILAY... 


THIS IS ROUND 7 
Tihs oO ME: 0 


MYSELF. ..5TAND BY... 
ew ROLLING OTE 1 WHICH CAME UF 4 
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ee wey ves Steere 6 ee et ph ee ge ee ee ee ee es ee ee ee ee i ee ee ee ee ee ee ee ee se ee ee ee ee 


»» ROLLING DIE 2 WHICH CAME UF 2 


ey ee ee ei ee te eh ee ey ee ee ee ee ee ee oe ep ee oy ee ee ee ee ee 


»»e+ROLLING DIE 3 WHICH CAME UP 4 


ee Se ee ine cs 6 et eet ee ey ee ee ee ee ee ee oe ee eee ee ee eee ee eee ee ee ee ee eee 


AND NOW IT’°’S TIME TO ROLL FOR YOU 
»»«ROLLING DIE 1 WHICH CAME UP & 


ene pee heey chee eee ae ee Pe ee ee ee ee oie deed peel cee ee me Oi ee Oe ee eee eee ee ee ee ee ee ee oe ee ee ee ee eee ee 


»e»ROLLING DIE 2 WHICH CAME UF 3S 


ee ney Nes ee SD ee eee dene veeed Smrte 66s er SD tp em tee e ete Gy ee SP ee ee ee wie bes Gee oe) i ee ee ee ee ee eee ee ee ee ee ee 


we» «ROLLING DIE 3 WHICH CAME UF 6&6 


ee ae eg ee fee ee Ce ee ce eek et eet fee Ge ee ee ee oes eee Ome ee ee ee ee Geet eee eee ee ee eee 


IT ROLLED 4 2 4 


YOU ROLLED 6 SS & 
$$ TWO OF A KIND FOR ME $% 
$$ TWO OF A KIND FOR YOU $% 


33 AFTER ROUND 1 THE SCORES ARE: 
eee TIMes SO VZ50038 SO 


THIS IS ROUND 2 
TIM: SO ME: SO 


FIRST I*LL ROLL THREE DICE FOR 
MYSELF...STAND HY... 
woe @ROLLING DIE 1 WHICH CAME UF 1 


Seay Spee Peek ee eS tepee AE tee Soeee Cee re et weve Oud ees 6 ome Se ee ee ee ee eee es ee ee ee oe oe 


ee @ROLLING DIE 2 WHICH CAME UP & 


ee ee ett tty ee ee ee be te ee oe ee ee ES Ee ee tree Le ote ey ee ee ee ee Gee eee ee ee eee ee ee ee 


»»*ROLLING DIE 3 WHICH CAME UF 1 


i oS i ee ee Se Cet Fee ee ey Gee ce deed eee eet ey i ee a ee ee ee Gere te ee Oe Gee 


AND NOW IT’S TIME TO ROLL FOR YOU 
»» «ROLLING DIE 1 WHICH CAME UP 1 


ey ee ee ey ek ates 9 ge ge ee ee ct ee ce ce ee es es ee ee ee ee ee ee eee oe 


oe a@ROLLING DIE 2 WHICH CAME UP 3 


we eROLLING DIE 3 WHICH CAME UF 3 


ee Se ee ee yn eg ee ee ee es ee ee re ey ee ee eee ey es ee ee ee oe 


I ROLLED 1 & JI 


YOU ROLLED lt S&S 3&3 
“> YOU CRACK A STRAIGHT ROAD << 
$% TWO OF A KIND FOR ME $% 






»>> AFTER ROUND 2 THE SCORES ARE: * 
‘es TIMs So VZSa00: &O 


THIS IS ROUND 3S 
TIM: 49 MEs Sl 


FIRST I’?LL ROLL THREE DICE FOR 
MYSELF...STAND BY... 
~e ROLLING DIE 1 WHICH CAME UF 4 


ce re ee ay mg ce es ey ey es ey er ee er es et ee ee eee ee cee es ee ee ee eet See pe ee ee eee ee oe 


»» ROLLING DIE 2 WHICH CAME UP 3 


ee ee ee le ed ee Ld ee ee ee eh 


»e »ROLLING DIE 3 WHICH CAME UF 2 


re a ee se ee eS pes a es OR me ee ere ce ey ee es ee ee Sg ees ts ee ery ee SD LL bed ey pee 


AND NOW IT’S TIME TO ROLL FOR YOU 
»» eROLLING DIE 1 WHICH CAME UP 2 


eee ee a ee de a ee a ee ee ee eee 


»« ROLLING DIE 2 WHICH CAME UF 1 


ake Fei ny eet ee Me tere COE E Rie Feet pee OSE GD dh te ee qe Se ee ee Sn ee ey Oe ee ee ee ee eee ee et ee ee ee eye 


~» ROLLING DIE 3 WHICH CAME UF 6 


ee ee eee oe ee Oy te eye Oe ty ee ee De tee SP ES eters EO et eee SO SD dee ey SU fee Gee eet ey ey et ee ree Gee SO ee et 


T ROLLED 4 3 2 


YOU ROLLED 2 1 4 
>> IT GRACK A STRAIGHT ROAD << 
>> YOU CRACK & STRAIGHT ROAD << 
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WELL.TIM, THAT*’S THE END OF 
QUR LITTLE GAME OF MALIBU.... 


TIM?S FINAL SCORE IS 4% 
AND MINE [S 31 


SQ T°M THE WINNER! !! 
DO YOU WANT ANOTHER GAME, TIM (CY OF N) ? 


Ok, THANES FOR THE GAME, TIM 
SEE YOU AGAIN SOME TIME 


Here’s a complete list of the winning throws (and remember that 
when one player gains a certain number of points, they must come off 
the other player’s total, so the totals always add up to 100): 


Total Name Points 

13 plUus:A DAI ict sos eka eke fie ioe BOUGN ss suki awe ya nes 10 
O10F- 13 soho a datheo tise ees Easy Rider................ 4 

2 0) ee ee ee aaa Straight Road ............. 3 

All the Same a. ood iw eens Triple Crown.............. 5 
Two the same..............0000 eee Two of a Kind............. 3 
VG sas eee Be ee aes Lucky Joe............0008. 6 

Be cise a adminis 2 ..... Low and Mean ............ fi 

ES See Sere herent ene ae reer a High Roller.............. 12 


The only losing throw is a seven (“Dreaded Seven”), which costs you 
two points, and adds two to your opponent. 


Here's the listing for your own round of MALIBU: 


1QO REM MALIBU FOR VZ300 

20 GOSUE 4680 

20) REM ROKR KOKO ROK ACK KORO KKK KK KK 

40 REM *AXK THE MAIN GAME ROUTINE xxx 

909 FOR T=i Ta S 

60 CLS 

70 PRINTS PRINTS PRINT “THIS ITS ROUND"; T 

BO TF CS®HS220 THEN PRINT Ads": “sHSs" MEs": 
CS 


FO GOSUR B20 


ZO) 
2Oo 
27) 
2735 


230 


285 
290 
295 


300 
305 


O10 


315 


PRINT:PRINT "FIRST I°LL ROLL THREE DICE FOR" 
PRINT "MYSELF...STAND BY..." 

GOSUB 830 

FOR Z=1 TO 3:C(Z)=0:H(Z)=O:NEXT Z 

GOSUB 3840 

PRINT:FPRINT "NOW IT’S TIME TO ROLL FOR YoU" 
GOSUB 840 

PRINTSFRINT "I ROLLED"3C(1)3C(2)3C(3) 
PRINT:PRINT "YOU ROLLED"3H(1) 3H(2) 3H(3) 

REM *x* ASSESS RESULT OF ROLLS «xx 

HT=H (1) +H(2) +H(3) 

CT=C (1) 40 (2) +0 (3) 


5 F=0 


IF (C¢(1)=C0 (2) 0RC (2) =C (3) ORC (1)=C 63) ) ANDCT=13 
THEN F=1 
IFF=1THENPRINT"THAT*S SOUGH FOR ME! "+CS=CS+10 
: HS=HS~-10 
IF (H¢1) =H(2) ORH(2) =H(3) ORH(1)=H(3) ) ANDHT=13 
THEN F=2 
IFF=2THENPRINT" THAT"? S SOUGH FOR YOU!":HS=HS+10 
:CS=CS-10 
IFHT=150RHT=6 THENHS=HS+4: CS=CS—-4: PRINT" xEaSY 
RIDER FOR YOUx" 
IFC T=150RCT=6 THENCS=CSt43 HS=HS—-4: PRINT" KEAQSY 


RIDER FOR MEX" 
IFCT=90RCT=12THENCS=CS+3 1 HS=HS—-32 F=3 
IF F=3 THEN PRINT "+> I CRACK A STRAIGHT ROAD. <<" 
IFHT=90RHT=1 2 THENHS=HS+3 s CS=CS-—3:F=4 
IF F=4 THEN PRINT">> YOU CRACK A STRAIGHT ROAD <<" 
IFC (1)=C (2) ANDC (2) =C (3) THENPRINT"A TRIFLE CROWN 
FOR ME":F=5 
IF F=S THEN CS=CS+5:HS=HS-S:t GOTO 300 
IFC (1) =C (2) ORC (2) =C (3) ORC (1) =C (3) THEN F=6 
IFF=6THENPRINT"$$ TWO OF A KIND FOR ME $$" 
: CS=CS+3: HS=HS—-S 
IFH(1) =H (2) ANDH (2) =H (3) THENFRINT"A TRIFLE CROWN 
FOR YOU": F=7 

IF F=7 THEN HS=HS+5:CS=CS-S:GOTO 320 
IFH (1) =H (2) QRH (2) =H (3) ORH (1) =H (3) THENF=8 
IFF=STHENPRINT"$# TWO OF A KIND FOR YOU $%" 

sHS=HS+32CS=CS-—5 
IFHT=137THENPRINT"FOR YOU...LUCKY JOE!" 

: HS=HS+6:CS=CS-6 
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IFCT=13THENPRINT "FOR THE VZ..e-LUCKYJOE!" 
:CS=CS+&6: HS=HS-6 
F=() 
IF HT=2 THEN FRINT"LOW AND MEAN...FOR YOU!" 
= HS=HS+7: CS=CS--7 
IF CT=3 THEN FPRINT"LOW AND MEAN...FOR Vz!" 
*(25=CS+7:HT=HT--7 
IF HT=18 THEN FRINT"HIGH ROLLER FOR THE 
HUMAN... "sF=1 
IF F=1 THEN HS=HS+12:CS=CS-12 
IF CT=18 THEN FPRINT"HIGH ROLLER FOR THE. 
VZ3S00..."sF=2 
IF F=2 THEN CS=CSt+12:sHS=HS—-12 
IFHT=7THENFRINT" YOU TRIFFED A DREADED SEVEN" 
2 HS=HS--2: CS=C5+2 
IFCT=7THENPRINT"I TRIFPED A DREADED SEVEN" 
sHS=HS+2: CS=CS-2 
REM *xx FRINT OUT SCORES xxx 
PRINT: PRINT 
IF T=5 THEN 430 
PRINT’ 22> AFTER ROUND"s;T3 "THE SCORES" 
PRINT'ARE "sASs "i "SHSS" VZ3003"sCS 
GOSUB 830:GOSUE 830 
IF INKEY#<2"" THEN 4335 
FRINT ° 2> PRESS ANY KEY <2" 
IF INKEY$#="" THEN 437 
SOUND RND (20), 1 
REM xx CHECK BOTH STILL IN GAME Xx 
IF CS<i OR HS<i THEN T= 
NEXT T 
REM xxx RESULT OF FIVE ROUNDS xxx 
PRINT:PRINT "WELL, "sA%s3", THAT’S THE" 
FRINT "END OF OUR LITTLE GAME OF 
MALIBU..." 
PRINTSPRINT A%3""S FINAL SCORE IS"sHS 
FRINT "AND MINE IS"sC&S 
GOSUB 830 
PRINT 
F=O3s IF CSs+HS THEN F=1 
IF HS:CS THEN FH=2 
IF HS=(S THEN FH3 
IF F=1 THEN PRINT "SO I’M THE WINNER! ! " 
IFF=2THENFPRINT'SO "“sAGs" TAKES THE" 
sPRINT "WINNER’S TROFHY" 


WOO 
w7Q 
780 
IPO) 
500 
610 
6135 
620 


625 
G20 
640 
Oa 
5460 
470 
680 
690 
700 
710 
720 
VART @) 
740 
7a0 
760 
770 
ay gal 
780 
785 
787 
800 
810 
Be 
8-30 


840 
830 
H4O 
B70 
B38oO 
890) 
FOO 
FiO 
G20 
P20 
940 


IF F=3 THEN PRINT “IT LOOKS LIKE A DEAD HEAT...." 
GOSUB 930:GOSUB 830 
PRINT:PRINT "DO YOU WANT ANOTHER GAME (Y/N)? 
PRINT 
FS=INKEYS 
IF FS<>"Y" AND FSS>="N" THEN 600 
IF F$="Y" THEN 630 
FRINT "Ok, THANKS FOR THE GAME,":PRINT Ats 
", SEE YOU AGAIN": 

PRINT " SOME TIME":END 
PRINT “OK, “sA%s", STAND BY..." 
GOSUB 830 
GOSUB 740 
GOTO 50 
REM OOOO OG OOIOIGIOIO ICO K 
REM *xx INITIALISE xx 
CLS:SOUND 9§,1:SOUND 9,2 
DIM H(3),C(3) 
FRINTSERINT " WELCOME TO THE GAME OF MALIBU" 
PRINT "WHICH IS PLAYED WITH THREE DICE" 
GOSUB 980 
PRINT: INPUT “WHAT IS YOUR NAME "Ag 
GOSUB @3o 
CLS:FRINT 
HS=50:CS=50 
IF INKEY$<2"" THEN SOUND RND(i5),1:GO0TO 775 
PRINT " OK, "“sAé:", PRESS THE" 
PRINT " SPACE BAR WHEN YOU"RE READY" 
PRINT " TO PLAY..." 
RT=RND(999):IF INKEY$="" THEN 800 
RETURN 
REM kx DELAY SUBROUTINE *x 
SOUNDRND (8) ,1:FORI=1T0 1600:NEXT I 

:SOUND RND(25),1:RETURN 
REM «xx DICE ROLL xxx 
FOR Z=1 TO 3 
PRINT "ROLLING DIE"3Z3 
FOR I=1 TO 999:NEXT I 


K=RND (6) 

PRINT "WHICH CAME UP"skK 

PRINT “-----—-----—-—--- er ee rT 
IF C(Z)=0O THEN C(Z)=E ELSE H(Z) =k 
NEXT Z 


G0SUB 8350 
RETURN vee 


| | SNAKES’ EYES 


SNAKES’ EYES demands some more cool thinking under pressure. 
You and your computer take it in turns to throw a pair of dice. You 
add the total of the pips, and in turn add this to your score. 

You can roll the dice as many times as you like, but if you roll a 
seven, you automatically lose. Therefore, as you can see, the program 
demands you make decisions based on whether you should be careful 
and perhaps lose the round by not rolling a high enough score, or 
whether you should be greedy and go for the absolute maximum score 
and risk a seven. 





You'll find that it is relatively easy to program games like this on 
your computer. Once you’ve worked out the “mechanical” routines 
which do such things as roll the dice, and increment the score, for the 
human player, it is not very difficult to work out a routine to enable 
the computer to use the same mechanical routines. Most dice games 
do not demand much “intelligence” and their strategy can often be 
reduced to a couple of IF/THEN statements. Read books on dice 
games—such as the excellent Dice Games Old and New by William 
E. Tredd (The Oleander Press, New York, 1981)—to get ideas for 
games to turn into programs, and for simple ideas on how to play the 
game as well as possible. It is these ideas which you should find rela- 
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7O 
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90 
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12 


tively easy to turn into simple “intelligent algorithms” to enable your 
computer to play reasonably well against you. 

And if, as in this case and in ONE-AND-TWENTY, you stipulate 
that the human must go first, the computer knows exactly what target 
it is aiming at, and therefore starts a round with a considerable advan- 
tage, which helps overcome the machine’s inherent stupidity. 

Anyway, this is the listing for the game: 


REM SNAKES EYES 

CLS 

H=03s CZ=0 

HS=0:CS=0 

FRINT "FLEASE STAND BY..." 
GOSUB 700 

CLS: FRINT: PRINT 

PRINT "YOUR TOTAL IS"HS:PRINT 
GOSUB 710 

© PRINT "PRESS *R*® TO ROLL," 
O PRINT ""O° TO QUIT" 
© Of=INKEY#: OF=INKEYS 


130 WS=INKEYS 


1S 


O IF W$e> "R" AND W$e> "O" THEN 130 


160 IF W="Q" THEN 220 
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© GOSUB 370 

O IF Z=7 THEN S50 

O HS=HSt+Z 

© PRINT:PRINT "YOUR TOTAL IS"HS 
© GOTO 60 


20 PRINT: PRINT: FRINT "STAND BY" 
30 GOSUB 700 


© GOSUB 370 

QO IF Z=7 THEN 330 

© CS=CS+Z 

QO PRINTSFPRINT "MY TOTAL I[S"CS 
QO PRINT "YOUR TOTAL IS"HS 

QO IF CS*SHS THEN 220 

O IF CS=HS THEN PRINT "IT*S A DEAD HEAT!" 
© IF CS?HS THEN 350 

© GOTO 5190 

QO PRINT: PRINT "YOU WIN! !":sH=H+1 
QO GOTO 310 

O FRINT: PRINT "I WIN! !":(CZ=CZ+1 
0 GOTO 310 


379 
380 
oF) 
400 
410 
420 
ASagd 
4AAQ 
450 
460 
470 
480 
490) 
JOO 
m1 
wal) 
Jl) 
S40 
rere] ©) 
DOC) 
S70 
580 
SPO 
HOO 
&10 
G2o 
630 
H40 
650) 
660 
670 
6830 
690 
FOC) 
710 
FiO 
Foot) 
74AO 
7350 
760 
770 
7BOQ) 


REM ROLL DICE 

CLS 

FOR Q=1 TO 20 

X=RND (6) 

Y=RND (6) 

FRINT:FRINT "DIE ONE: "xX" DIE TWO: "Y 
FOR P=1 TO SkOQ:sNEXT P 

NEXT & 

CLS 

GOSUB 710 

FRINT "DIE ONE: "XxX" DIE TWO:'"Y 

Z=X+Y 

GOSUB 700 

RE TURN 

FRINT:PRINT “THE SCORE IS:" 

PRINT , "YOU: "H 

PRINT ," ME: "CZ 

IF CZ+H=9 THEN SBO 

GOSUB 710 

IF H?CZ THEN FRINT "YOU ARE LEADING!" 
IF CZ3H THEN PRINT “AND I*°*M IN THE LEAD..." 
GOSUB 700 

CLS 

IF CZ+H=9 THEN 620 

BOTO 40 

FRINT: PRINT: PRINT 

PRINT "WELL, BUDDY, THAT*S THE END" 
FRINT " OF THE GAME..." 

FRINTs PRINT: PRINT 

FRINT "YOUR FINAL SCORE WAS"H 

PRINT "AND MINE WAS"CZ:PRINT 

IF He(lZ THEN FRINT "I°M THE WINNER! !":GOTO 720 
PRINT "YOU" RE THE WINNER! !"': END 

FOR F=1 TO 1000:NEXT P:RETURN 

PRINT '----~---—----—---~-— + ee "sRETURN 
GOSUE 7OO:GOQSUB 70a 

CLS:A=O:lL=2: Z=3 

PORE 286721A,127+(ZX164) 

IF L=2 AND (At1) /S2Z=INT((At+1)/32) THEN L=4 
IF L=2 AND FEEK (2867340) 2232 THEN L=4 

IF L=4 AND PEEK (28672+0+32) 25352 THEN L=l 
IF L=1 AND PEEK (28671+A)<232 THEN L=3 
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IF L=3 AND PEER (28672+A-S2)¢e32 THEN L=2 
IF L=2 THEN A=A+1 

IF L=1 THEN A=A-1 

IF L=3 THEN A=A-S2 

IF L=4 THEN A=A+S2 

IF Af‘S11 THEN A=S11:L=1 

IF L=2 AND PEEK (2B8675+A) < 2352 THEN L=4 

IF L=4 AND PEER (26672+At32)< 252 THEN L=1 
IF L=1 AND PEER (28671+A)< 232 THEN L=3 

IF L=S AND FEEK (29672+A-S2) 2°32 THEN L=2 
C=RND(2)--1:1F C=1 THEN X=X+1ELSE X=X-1 
IF X2O THEN COLOR, O 

IF X10 THEN COLOR, 1 

Z=RND (9) 

GOTO 740 





| ]}UNDER 'N’ OVER 


UNDER 'N’ OVER is a computer adaptation of the dice game usually 
known as “Under and Over Seven.” In this game, you bet on the 
likelihood of the total of a pair of dice landing so that the total is: 


¢ less than seven; 

* exactly equal to seven; or 

¢ greater than seven. 

Again, this is a game which—at first sight—-seems to offer pretty 
good odds to the player. However, if you played the game forever, 


with a pair of perfect dice, you’d find your losses would outweigh your 
wins by nearly 17%. 
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Lines 70 and 120 ask you to place your bet, giving you the key 
for entering it (press A to bet under seven, B to bet on seven and C to 
bet on a total greater than seven). Lines 130 and 140 read the key- 
board using INKEY$, rejecting (line 140) any input which is not A, B 
or C. 

Having received a valid choice, the odds are printed up by lines 
150 to 180 and then line 200 asks you to enter the amount of your 
bet. Of course, you can’t bet more than you have (not in this game, 
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» line 220 checks your bet (A) against your money (M) and 
en’t got enough prints up: “You haven't got that much!” 
next section rolls the dice, assigning random values between 
six to variables B and C, and adding them to produce total D 
80. You are told of the total by line 300. 


‘Au. sutcome 


This is determined by the routine from lines 310 to 350 where a 
loss is first assumed (line 310, with variable W, for “win,” assigned to 
the negative of your bet). This is changed—if needed—into the cor- 
rect amount for a win if one has, in fact, taken place. You can see you 
get paid four times your bet for correctly specifying the dice will land 
with a total of seven (line 320) and even money for either over or 
under seven (lines 330 and 340). 

Lines 370 and 380 tell you about your win (or loss) and then line 
420 checks that you still have some money in hand. If you have, you 
are offered a new round of the game. If not, you are dismissed with a 
certain severity. 

Here’s the listing to turn your computer into a dice fiend: 


10 REM UNDER *N* OVER 

50 CLS 

40 M=30 

20 GOSUH 450 

60 GOSUB 470 

7QO PRINT “OR, FUNTER, “TIS TIME TO" 
BO FRINT “"FLACE YOUR BET... .eaenan e 
90 GOSUB 470 

100 PRINT "ENTER *A’*® TO BET UNDER 7" 
110 PRINT " "B® TO BET ON 7, OR" 
120 PRINT " “C* TO BET OVER 7" 
13530 AS=INKEYS 

140 IF AS<> "A" AND A> "HR" AND AF<> "C" THEN 130 


150 FRINTSPRINT "THE ODDS ARE:" 

160 PRINT " @ - FAYS EVEN" 

170 PRINT " B-— PAYS 4 TO 1" 

180 PRINT " C - PAYS EVEN" 

190 GOSUB 470 

200 INPUT "HOW MUCH WOULD YOU LIKE TO BET":A 

£10 GOSUB 470 

“20 IF AzM THEN FRINT "YOU HAVEN’? T GOT THAT MUCH!": 
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FRINT:GOTO 200 


230 
240 
250 
260 
27) 
280 
290) 
300 
210 
aM 
oO 
340 
SOO 
300 
a7 
380 
390 
400 
410 
420 
430 
440 
450 
440 
470 
490 
LEO) 


SOC) 


B=RND (4) 
PRINT TAB(7);"DIE ONE CAME UP"B 
GOSUB 470 
C=RND (4) 
PRINT TAB(7);"DIE TWO CAME UF"C 
D=C+H 
GOSUB 470 
PRINT "SO THE TOTAL IS"D 
W=-A 
IF D=7 AND AS="B" THEN W=4xA 
IF D¢7 AND A$="A" THEN W=A 
IF D>7 AND AS="C" THEN W=A 
M=M-+b) 
GOSUE 470 
IF WO THEN PRINT "YOU"VE JUST WON $"W:GOSUE 520 
IF WiO THEN FRINT "AND SO YOU LOSE #" (Wx-1) 
GOSUB 470 
GOSUB 450 
GOSUBR 470 
IF M<i THEN 500 
CLS 
GOTO SO 
FRINT:FRINT "YOU NOW HAVE $"M 
RETURN 
FOR P=1 TO 1000:NEXT P 
PRINT: PRINT 
RETURN 
FRINT "YOU'RE FLAT BROKE, *BUDDY*":SOUND 3,9 
PRINT "SO I GOTTA CLOSE THE CASINO":SOUND 2,7 
PRINT “THERE’S NO ROOM FOR DEADBEATS IN MY 
JOINT':SOUND 1,5 
END 
SOUND 21,4:SOUND 14,2:SQUND 16,1:SOUND 16,4: 
SOUND 14,4 
SOUND 0,1:SOUND 20,4:SOUND 21,4 
FOR I=0 TO 3i:PRINTSI,CHRS(143): 
FRINTDI +449, CHR# (143) 5s NEXT 


RETURN 
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|| SEVEN/ELEVEN 


SEVEN/ELEVEN is another fine dice game, and one in which 
your goal changes in each game. Based on craps, you have a “target 
number” to reach in each round (known as your “point” in craps). 
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Craps is an American version of the old English dice game “haz- 
ard.” In SEVEN/ELEVEN, the complex betting of craps has been 
removed, leaving just the fun of the game. Rather than worry about 
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computing odds and placing “pass” and “don’t pass” bets, you can 
concentrate on the serious business of praying for the right roll to 
come up. 

In this game, you are playing against yourself. Your winning and 
losing rounds are tallied, so you know—at every point in the game— 
just how well (or otherwise) you are doing. 

You throw two dice at a time. If you throw a 2, 3, or a 12 with 
your first roll, you lose that round. Getting a 7, or an 11, on the first 
roll is the best thing you can do, because you’ve won that round with 
that single roll (which is why the game is called SEVEN/ELEVEN). 

Any other number rolled as your first roll of a round becomes 
your “target number.” You have to try and roll this again, before you 
roll a 7 or an 11. If you manage to roll your target number again, you 
win that round. However, rolling a 7 or an 11 before you’ve rethrown 
your target total causes you to lose that round. 

Here is the listing of SEVEN/ELEVEN: 


190 REM SEVEN ELEVEN 


20 BS = "IN 7/11 YOU'VE ROLLED" 
30 G = O:W =OsL = O:M = 105 
40 CLS 


JQ FRINT:PRINT "THE TALLY SO FAR:" 

60 PRINT "WINS: "W" LOSSES: "L 

79 G = G6 + 1 

B8O M= M - 

FO PRINT "YOU HAVE #"M 

100 PRINT:PRINT "THIS IS ROUND NUMBER"G 

110 GOSUB 200 

12O IF A=7 OR A=11 THEN 300 

130 IFAS2 OR A=3 OR A=12 THEN 360 

140 P=A 

150 CLO:FPRINT:PRINT"YOUR TARGET NUMBER IS"F 
160 GOSUB 200 

170 IF A=F THEN 300 

180 IF A=7 OR A=11 THEN 310 

190 GOSUB 340:GOTO 150 

200 N=0:6$=INKEYS 

210 PRINT:FRINT"PRESS *R* TO ROLL" 

220 N=EN+W: IF INKEY$=""" THEN 220 

230 C = RND(6):PRINT" YOU ROLLED "C:SOUND €+12,C 
=40 GOSUEB 240 
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200 B=RND(S) sFRINT"AND"B:SOUND H+24,8 
£60 A=E+C 
2/0 FRINT:FRINT H¢s3A 
=B0 GOSUB 340 
290 RETURN 
S00 FRINT"AND YOU" VE WON" :W=W+l:sM=M+20: GOTO 320 
S10 PRINT"AND SO YOU LOSE":L=L+i:SOUND 9,4 
=SOUND 6,4:SOUND 4,6 
220 GOSUB 340 
320 GOTO 40 
340 FOR T=1 TO SooO:NEXT T 
300 RETURN 
360 FPRINT"SO THATS THE END OF THE ROUND":GOTO 320 
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Space Games 





f computer games 
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would be complete without a few space games. 


Good old space, the final front 
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|| MOONLANDER 


The scenario of this program is pretty familiar. You are land- 
ing on the moon, with limited fuel, and for some reason your onboard 
computer is incapable of doing anything except reporting the state of 
the flight to you. The information you get is, of necessity, limited but 
adequate. 





You are told, at all times, your height above the moon’s surface, 
how much fuel you have left, and the speed with which you are de- 
scending. You have to enter the correct amount of thrust to ensure 
you land gently on the surface. The fuel you have is limited, so you 
must ration it to ensure you have enough left in the last few seconds 
of flight to cushion your impact. A “high-score” feature (lines 370 and 
380) ensures you and your friends return to this program time and 
time again in an effort to get a better “galactic rating” and to create a 


less deep crater. a 


10 REM MOONLANDER 
20 HS=-10000 
20 CLS:FPRINTI24, "HEIGHT: ":PRINTI64, "VELOCITY: " 
PPRINTODLIO0O, "FUEL: " 
40 A=-2ZO-RND(60):REM INITIAL VELOCITY 
30 B=12Q0+RND (390) REM HEIGHT 
60 C=320+RND (90) :REM FUEL 
70 SHoCHRS (252) +CHRS (234) +CHRE (254) 
80 FOR FP=29152 TO 29183:POKE P,122:NEXT:Q=0 
90 B=INT(BH) :A=INT (A) 2 C=H=INT (C) 
100 PRINTO42, USING "##H#H'S Bs PRINT®74,USING "HHH" SA 
110 PRINTD1O6,USING $ "tH4ttit"s C 
L120 PRINT? (Qx32) +20," "sQ=INT (16-B8/100) 
150 PRINT ® (Qk32) +20, 5% 
190 PRINTD416, "THRUST": 
SOO TH=INKEY$: IF VAL CT#) =O AND THe 2"O" THEN 200 
210 T=VAL(T$):SOUND @,1:FPRINT T 
220 IF TeC THEN T=0 
2o0 C=C-T 
240 H=H+A+(T-3) /2 
250 A=A+(T-S) /2 
“40 IF Cel AND B?100 THEN Foo 
“70 IF ABS(B)=20 AND ABS(A)*¢<15 THEN 420 
2780 IF Be19 THEN 90 
290 IF C1 THEN 310 
200 FPRINT@352," YOU HAVE RUN OUT OF FUEL" 
210 PRINT2384, "YOUR SHIF CRASHED AT"ABS (A) "BEFPH" 
220 FRINT2416, "CREATING A" INT (CABS (A) k45) 
"METER DEEF CRATER" 
aoQ SC=100-ABS(A):FOR F=Q TO 1 STEP —-1:SOUND F,1:NEXT P 
S40 FOR F=1 TO SO0O00O:NEXT P 
560 CLS:PRINT9S320, "YOUR GALACTIC RATING IS"SC 
2/09 IF SCsHS THEN HS=SC 
530 PRINTISS2, "BEST RATING SO FAR IS"HS 
=90 FPRINT2384, "FLEASE STAND BY FOR YOUR 
NEXT MISSION" 
400 FOR FP=1 TO 1500:NEXT F 
410 GOTO 30 
420 PRINT@284, "YOU HAVE LANDED SAFELY": PRINT 
430 PRINT9416, "WELL DONE, INTREFID CAPTAIN": 
SC=Cx224: GOTO 240 
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| | HYPERWAR 


HYPERWAR is a major space simulation, which puts you in charge 
of patrolling a cube-shaped sector of space, which is ten parsecs along 
each side. The enemy is the race known as the Dosznti. There is only 
one Dosznti ship in this sector, and it is moving slowly through the 
cube as you play. Although you cannot destroy the ship, you can kill a 
number of individual Dosznti. In fact, the aim of the game is to get 
your “alien kill total” to the highest point possible before your energy 
banks are exhausted. Although there are many, many more Dosznti in 
this sector than there are humans, the aliens are notoriously bad 
shots, so your chance of wiping out a lot before your mission is termi- 
nated is rather high. 


a 





You can only fire at the Dosznti when you are within three units 
of their position. Attempting to fire when they are out of range leads 
only to the crew response “The Dosznti ship is not within range, sir.” 

You have a limited amount of energy, and each successful hit by 
an alien craft diminishes your energy supply. 

I will not explain the game in any more detail, because to do so 
would diminish the enjoyment you'll get from playing it. The “be- 
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havior of space” does not change from game to game, so you should 
find you begin to learn the tricks of space warfare after the first game, 
leading to higher and higher scores as you continue to play it. The 
game tends to explain the rules to you as you play, and the screen 
display has been organized to make it as clear as possible what is 
going on. 

This program will enable you to turn your computer console into 
one within your space ship, as you set out to rid the 10 parsec cube of 
the menace of the Dosznti mothership: 


214 


1.0 
20 
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REM HYFERWAR 
HS=0 

GOSUE 1410 
GOSUB L1ISO 

IF LO THEN 670 
GOSUB 1660 

{_=[-- ~tc 


we aid 
JI=TI-1 


OO) 

Lod 
110 
120 
130 
140 
eel®) 
160 
179 
1B0O 
190 
200 
210 
ara ©) 
20 
240 
20 
260) 
270 
POO 
290 
2OO 
310 
et) 


SQ 


PRINT 


"WHAT 
PRINT " 
PRINT “ 
PRINT " 
FRINT " 
INFUT Z$ 
IF Z#="N" 
IF Z$="S" 
IF Zg="6" 
IF Z$="W" 
IF Z#="A" 
IF Z$="R" 
IF 2%="L" THEN 
IF Z$="H" THEN 
IF X<i THEN X=1 
IF Yet THEN Y=1 
IF Zé1 THEN Z=1 
IF X210 THEN X=10 

IF Ys10 THEN Y=10 

IF Z10 THEN Z=10 

GUSUR 890 

IF RND(10)<7 THEN 40 

PRINT “OOOO IO OOOIGIOCICIOIOC CIO ICA AGK! 
PRINT "XDEEF SPACE SCANNERS READ: x" 
PRINT "kK N/S -"A-X3 TAB (26) 5K" 


IS YOUR ORDER, CAF'TAIN?" 
N. S, E, Ww" 
A(DVANCE), RCETREAT) " 
H (YPERSFACE) ° 
L (ASER) " 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN | 
t 490 
GOSUB 152C 


240 
fear] © 
260 
370 
BO 
FO 
400) 
410 
420 
30 
440 
450 
460 
470) 
480 
A490) 
500 
g10 


ral oa 


o40 
Sot) 
750) 
a/O) 
380 
70 
600 
610 
620 
620) 
640 
430 
570 
690) 
60) 
7OQ 
71Q 
720 


73Q 
740 
73Q 
760 
770 


PRINT “x E/W -"H-Ys TAB (26) 3 "xk" 

FRINT "x A/R —-"C-Zs TAB(24) 5 "%" 

PRINT "XXXKKKKKK KKK KKK KKKKKKKK KKK" 

A=A+KND (4) -3 

BR=B-+INND (44) -3 

C=C+RND (4) —-3 

IF Axl THEN A=1 

IF Az10 THEN A=10 

IF Beil THEN B=1 

IF R210 THEN H=10 

IF Cx1 THEN C=i 

IF C210 THEN C=10 

GOSUB 1650 

GOTO 40 

REM KXKKKXKXKKKKKK 

REM LASER OFTION 

L=L-.735 

GOSUB 1620 

IF ABS(A-X) 23 OR ABS(B-Y) 33 OR ABS(C-Z) F535 
THEN 1680 

PRINT "LASERS ARMED AND READY, SIR" 

GQSUB 1650 

IF RND(10)25 THEN S90 

FRINT "LASERS FIRE WAS UNSUCESSFUL,", "CAFTAIN" 

GOTO 650 

FRINT "YOU DAMAGED THE DOZNTI SHIF,", "CAFTAIN" 

FOR J=1 TO 30 


FOR H=1 TO S0O-J/2:FRINT “ "s:NEXT H 
PRINT “WELL DONE! !!'"'5 
NEXT J 


T=T+RND (1000) +784 
GOTO 1620 
REM OUT OF ENERGY 
GFOSUE 1420 
FRINT "THIS IS SHIF’S MASTER CONTROL" 
GOSUEB 1650 
IF Le=0 THEN FRINT “ENERGY RESERVES DEPLETED" 
IF TI=0 THEN PRINT "YOU HAVE STAYED IN SFACE 
TOO LONG" 
FRINT:FRINT "YOU DEFEATED"T"DOSZNTI":GOSUB 1650 
FRINT "LIFE SUPFORT SYSTEMS FADING...” 
GOSUB 14650 
FRINT " FADING...” 
GOSUB 1650 215 


FADING..." 


WAS "Ts IF T2HS THEN HS=T 

SEST SO FAR"HS:GOSUB 14650 

STAND BY FOR YOUR NEXT MISSION" 
3UB 1650:GOTO 30 

SOKA KHOR KK KK KKK 


E COLLIDED WITH THE", "DOSZNTI SHIF!! 


= ow 


gO GOTO 690 
890 REM DOSZNTI REFORT 
900 IF ABS (A-X) >SORABS (B-Y) *SORABS(C-Z) +5 OR 
RND(10)>7 THEN RETURN 
910 GOSUB 1420 
920 PRINT "CONDITION RED! CONDITION RED!": 
SOUND 24,8: SOUND 21,8 
920 GOSUB 1650: IF RND(O)«.25 THEN 1700 
940 FRINT "DOSZNTI ARE FIRING AT US, SIR" 
950 GOSUB 1650 
960 PRINT "CONDITION RED! CONDITION RED!"; 
SOUND 24,8:SOUND 21,8 
970 GOSUB 1650 
O30 IF RND(10) 27 THEN 1110 
990 PRINT "DOSZNTI FIRE HAS HIT OUR SHIF,", "CAPTAIN" 
1000 DA=RND C9) +1 
1010 GOSUE 1650 
1Oo20 FPRINT “MASTER CONTROL REFORTS DAMAGE" 
LO3Q0 FRINT "RATING OF"DA"TO THE " 
1040 IF DA=2 THEN FRINT "FOREWARD SECTION, SIR" 
1050 IF DA?2 THEN PRINT "CREW SECTION, CAFTAIN" 
1060 IF DAS AND DAZ THEN PRINT “MAIN DRIVE, SIR" 
1070 IF DA?7 THEN FPRINT "FOWER RESERVE CHAMBER" 
1080 L=L-DA 
109°0O GOTO 1620 
1110 GOSUB 1650 
4120 PRINT "THE DOSZNTI FIRE MISSED OUR SHIF, CAFTAIN" 
1120 GOTO 1650 
1140 REM KXKXKKKKKKKKKX 
1150 REM STATUS REPORT 
4160 CLS 
1170 PRINT “XXRKKKKRKKK KK KKK KKK KK AK KKK KKK KK" 
1180 PRINT:FRINT “STATUS REFORT FROM": 
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FRINT “MASTER CONTROL: " 


1190 
1200 
1205 
1210 
1215 

et) 


12.50 


1240 
1250 
1260 


1270 
1280 
1290 
1300 
L210 
1320 
1S30 
1340 
13350 
1360 
1370 
1390 
1390 


1400 
1410 
1420 
1440 
1450 
1460 
1470 
1480 
1490 
13500 
1510 
13520 
1S30 
1540 
13550 
L560 
LS7O 


GOSUE 1650 

FRINT "ENERGY IN MAIN AND AUXILIARY BANES: "L 
GOSUR 16350 

IF Les THEN PRINT:SFRINT "WARNING...ENERGY LEVEL " 
IF L&3 THEN FRINT "DANGEROUSLY LOW!" 

PRINT “STARDATE TIMER READS'"TI 


IF TI#1 THEN 6980 
PRCINT UGG OOO GGG GIOGCIOIOIOOaIGIOK" 
IF TO THEN PRINT!F RINT “DOSZNTI 

DESTRUCTION TALLY"T 
PRINT "*3>SHIFS GALACTIC CO-ORDINATES ARE"X:Y3Z 
FRINT "322DOSZNTI MOTHERSHIP LOCATED AT"4:B:C 


PRINT:PRINT "THE DOSZNTI IS "s 

IF AX sx OR Beey THEN FRINT "TO THE": 

IF AX THEN PRINT " NORTH"; 

IF AX THEN FRINT " SOUTH"; 

IF BReY THEN PRINT " EAST" S 

IF Bey THEN FRINT " WEST"; 

IF C=Z THEN FRINT " OF YOUR SHIP, SIR" 
IF CZ THEN FRINT " BEHIND US, CAFTAIN" 
IF CxZ THEN PRINT " IN FRONT OF US, SIR" 
PRINT [OGG KK KK 


GOTO 14650 


REM KXXKKKKKKKXX 

REM INITIALISE 

CLS 
L=SGXRND (30) 2 T=O02 TI =S0 
A=RND (10) 

F=RND (10) 

C=RND (10) 

X=RND (10) 

Y=RND (10) 

Z=RND (109) 

RETURN 

REM HYFERSFPACE OF TION 
X=RND (10) 

Y=RND (10) 

Z=RND (10) 

FOR J=1 TO 40 


PRINT TAB(J) 3 "XK" PRINT we 


te Ge 
i 


¢ 2 al Pareto 

Sey 
SRN 

ah he 







by yee 
L580 FOR Hei TO J:NEXT H a 
1590 NEXT J 
1600 CLS 
1610 RETURN 
1620 FOR Pet TO 1000:NEXT F 
1620 CLS 
1640 GOTO 1460 
1450 FOR F=i1 TO 1000:NEXT 
1660 PRINT: PRINT 
1670 RETURN 


1680 PRINT “THE DOSZNTI SHIP IS NOT 
WITHIN RANGE, SIR" 
1690 GOTO 14650 
1700 GOSUB 14620:FPRINT "CONDITION AMBER! ": 
SOUND 24,9:60T0 1630 


Brain Games 


I guess 90% of all games could, without stretching the definition too 
much, be called “brain games.” After all, they demand a certain 
amount of brain-power and application from you to play. 

However, the programs in this section under the heading of 
“brain games” are here because they demand a little more intellectual 
effort than several of the other games in the book. 


Here you'll have to unlock a twisted cube in CUBIC, will settle 
down to a game or two of MUMBLE MARBLE (also known as “soli- 
taire” and named as it is here because the game in “real life” uses 
marbles on a board), and will have to work under the pressure of a 
relentless clock to locate some atoms within a CYCLOTRON. 

If your brain still has any power left after all that, you can at- 
tempt a task which may appear impossible in FLIPPER and work out 
an algorithm to solve the SWITCHEROO problem in the fewest num- 
ber of moves. 








|| IDAHO STARS 


IDAHO STARS are stars with a special property—numbers placed 
on the crossover points of the lines forming them will, when added 
together, produce the same total, no matter which line of numbers is 
chosen. Loa: 

Here, for example, is one such star: 4QGaED 
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As you can see, each line on the star sums to the same total. In 

this program, the computer generates an IDAHO STAR, leaving two 
or three of the numbers as zeroes for you to work out as quickly as 


you can: 
This is the listing to produce your own IDAHO STARS: 


10 REM IDAHO STARS 
20 GOSUB 480:REM SET UF STAR 
30 GOSUB 340:REM FRINT STAR 
40 GOSUBR 7O0:REM ASK FOR GUESS 
90 GOTO 30 
SO REM RK RIK KKK AK KK 
70 REM ASK FOR GUESS 
So TF SC>O AND SC#10 THEN FRINT 

"YOU HAVE" SC"RIGHT SOQ FAR" 
5 IF NOT (SC:O AND SC#10) THEN FRINT 
90 G0=60+1 
100 PRINT "THIS IS GO NUMBER"GO 
110 PRINT “ENTER ANY NUMBER YOU" 
120 INFUT "THINK IS FART OF THE STAR";G 
130 SCO 

221 


140 
150 
140 
170 
LAO 
190 
200 
=10 
220 
250 
235 
Pat 
260 
270 
280 
290 
200 
310 
S20 
30 
340 
S50) 
350 
370 
ABO 
39O 
AOC 
420 
430 
440 
440 
470 
480 
490 
500 
510 
320 
G30 
40 
wut) 
DOO 
Ae) 
ayo1@) 
FIO 
222 


FOR J=1 TO 10 
IF G=A(J) THEN BJ) =A(J) 

IF B(J)<20 THEN SC=SC+1 

NEXT J 

FOR P=i TO 1000:NEXT F 

IF SC¢10 THEN RETURN 

REM OOOO OOOO OGIO K 

GOSUB 340 

FRINT "YES, YOUVE SOLVED IT! " 
PRINT "AND IT ONLY TOOK"GO"GOES..." 
IF GO<10 THEN GOSUB 9800 

PRINT "PRESS "Y* IF YOU’D LIKE TO" 
FRINT "TRY ANOTHER STAR OF IDAHO, " 
PRINT "PRESS °N* TO STOP........." 
AS=INKEY$ 

IF AS<> "N" AND AS<> "Y" THEN 280 

IF A$="Y" THEN RUN 

FRINT:FRINT "OK, THANKS FOR FLAYING" 
END 

REM OOOOKOKKX 

REM PRINT STAR 

FRINT CHRS(28): 

PRINT TAB(11)3B(1) 

PRINT: PRINT 

FRINT TAB(2) 3" “SHC2)3" "SB(3)3" "sh(4)s" "2B(5) 
PRINT 

FRINT TAB(S):B(6)3" "3 BC7) 

PRINT TAB(11):5(8) 

FRINT 

FRINT TAB(5) sB(9)3" "SB(10) 
RETURN 

REM OOOO OK 

REM SET UP STAR 

CLS 

DIM A(10),B(10) 

GO=0:SC=0 

A=RND (9) 

B=RND (9) 

C=RND (9) 

D=RND (9) 

E=RND (9) 

IF A=B OR A4=C OR A=D OR ASE THEN 530 
IF B=C OR B=D OR B=E THEN 530 

IF C=D OR C=E THEN 5730 


500 
10 
S2O 
6.40 
540 
ayei®) 
560 
O77) 
630 
FO 
FOO 
“10 
720 
Pon 
FAO 
7a) 
74O 
FIO 
780 
£9Q 
yi) 
Sic 


[F Dsl THEN SSO 
X=FRIND (3) 

SC 1) =X 
A(2)=X-B+C+D 
ACS) RAE 

A(4) =A+D 
ACS) HX BA C+€ 
ACS) =A 

AC7) =A+tC 

ACG) =A+K 

ACP) =X-2kXB+2XD+E 
A(10) =X-2x*E-C+D+2xKE 
FOR J=1 TO 10 


BCI) =ACJ) 

IF A(J) 50 THEN RUN 
NEXT J 

BCRND (10) )=0 


BCRND (10) )=0 
B(RND (C10) )=50 
RETURN 
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ss _/| 
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| ae 
39g 


38 


FOR TUs1 TO 9sREAD FR,DU:SOUND FR, DU: NEXT? RETURN 


DATA 16,3, 18,2, 20,35, 


20,1,20,2,18,1,20,2,21,5, 


29a 


2Og 


at “a” @ fee 


-] IDAHO SQUARES 


As expected, IDAHO SQUARES are like IDAHO STARS, except 
that the digits which add up to a common total lie along the horizon- 
tal, vertical and diagonal lines of a nine by nine grid, rather than 
along the lines forming a star. 
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Here’s an IDAHO SQUARE being solved: 


VZ300 IDAHO SQUARES 


Oo —-9 14 
7 & () 
©) ©) -- | 
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THIS IS GUESS NUMBER 1 
YOU HAVE S&S RIGHT 


ENTER YOUR GUESS? 5 


VZ=00 IDAHO SQUARES 


Oo -9 14 


THIS IS GUESS NUMBER Z 
YOU HAVE 5S RIGHT 


ENTER YOUR GUESS? 9 


YZ=0O0 IDAHO SQUARES 


oO -9 \. 4 


7 & ra 
.) fe) ~-j 


THIS IS GUESS NUMBER 3 
YOU HAVE 6 RIGHT 
ENTER YOUR GUESS? 13 
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V¥Z300 IDAHO SQUARES 


LS =F 14 


THIS IS GUESS NUMBER 4 
YOU HAVE 7 RIGHT 


ENTER YOUR GUESS’? 2 


VZ300 IDAHO SQUARES 


15s =-9 14 


THIS IS GUESS NUMBER 5 
YOU HAVE 7 RIGHT 


ENTER YOUR GUESS? -2 
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¥VZ300 IDAHO SQUARES 


Lo eo 14 


THIS IS GUESS NUMBER 6 


YOU HAVE 8 RIGHT 


ENTER YOUR GUESS? 2 


VZ200 IDAHO SQUARES 


je 4 14 


7 & vel 
me 21 —-1 


YOU" VE SOLVED IT 
IN JUST & GUESSES! 


As you can see, you simply enter any number which you think 
may make up part of the grid, and the computer checks to see if your 
number is one, or more, of the missing numbers. If your guess 1s cor- 
rect, the relevant zero (or zeroes) in the grid changes magically into 
the number you’ve entered. A tally is kept of the number of guesses it 
has taken you to solve it. 


Here’s the listing to produce your very own IDAHO SQUARES. 
You can change the nines in lines 250 to 280 to a lower digit for 
squares which are easier to solve, and to a higher one for squares 
which are more difficult. 
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10O 
20 
OQ 
AO 
50) 
60 
7Q 
SO 
GO 
100 
110 
120 
130 
135 
1490 
150 
160 
1790 
180 
190 
ZOO 
=10 
eet) 
20 
240 
2o0 
240 
270 
“OO 
=aIO 


4 of td 
hme 
— na 7 


330 
540 
3o0 
Ot) 
a7 
280 


REM VZ300 IDAHO SQUARES 

GOSUB 230:REM INITIALISE 

J=J+1 

CLS:PRINT: PRINT 

PRINT "“VZ300 IDAHO SQUARES" :PRINT:PRINT TAB(S): 

M=0 

FOR Z=1 TO 9 

PRINT BH¢(Z)3" "3 

IF SKINT(Z/3)=Z THEN PRINT:PRINT:FRINT TAB(3)s 
IF B(Z)=A(Z) THEN M=M+1 


NEXT Z 
PRINT 
IF M=9 THEN PRINT "YOU" VE SOLVED IT IN JUST” 
IF M=9 THEN FRINT " "sJ-13" GUESSES": END 


PRINTSPRINT “THIS IS GUESS NUMBER"sJ 

PRINT?PRINT "YOU HAVE":M; "RIGHT" sPRINT 

INFUT"ENTER YOUR GUESS": X 

FOR z=1 TO 9 

IF B(Z)=O AND A(Z)=X THEN B(Z)=X 

NEXT Z 

GOTO 30 

END 

REM GOO IOC IOIOIOK 

REM INITIALISE 

DIM A(9),B(9) 

A=RND (9) 

B=RND (9) 

C=RND (9) 

D=RND (9) 

IF A=B OR H=C OR A=C OR A=D OR B=D OR C=D 
THEN 240 


A(1)=A+B 
A(2)=A-(Bt+C) 
ACS) =A+C 
A(4) =A-B+C 
ACS) =A 

A(6) =A+B-C 
A(7)=A-C 
A(8) =At+E+C 
A(9)=A-B 
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290 FOR O=1 TO 9 
400 BO) =A C2) 
410 NEXT @ 

420 HCA) =O 

420 HCB) =O 

440 E(C)-=0 

450 HCD) =o 

ASQ J=0 

470 RETURN 


40 





230 


1o 
20 
a) 
40 
wy) 
Sie) 
90) 
90 


| | EXECUTIONER 


As you can tell, this game is a computer variation of the old pencil- 
and-paper game, “hangman.” In this game, the computer chooses a 
word from its store (held in the DATA statements from 500 to 740) 
and then challenges you to guess it. gM 





The number of guesses you'll get is related to the length of the 


word (see lines 120 and 170). 
This listing will enable you to risk your neck in the noble cause of 


iicreasing your vocabulary: 


REM EXECUTIONER 

CLS: RESTORE 

Y=QO:Le=" "SsREM 28 SPACES 
FRINT"FRESS *E* WHEN YOU"* RE READY" 

PRINT" TO FACE THE EXECUTIONER..." 

IF INKFEY$< 2"E" THEN 60 

FOR G=1 TO RNDCI2S) 

READ A 


1090 NEXT 6G 231 


110 
120 
130 
140 
150 
160 
170 
130 
190 
2QOQ 
210 
ea) 


SD 
210 


320 


SSC 


340 
ctw s) 
S40 
a/7O 
373 


376 
380 
385 
39Q 
400 
4035 
410 
420 
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5 CSH=INKEYS$: IF C$="" THEN 


GOSUB 480 
N=LEN (A®)sDIM B(N),D(N) ,0%(26) 
FOR G=i TON 
(GG) =ASC (MIDS (AS, G,1)) 
D(G) =B(G) 
NEXT G 
Q=INT (N+tN/2+. 5) 
CLS:FPRINT: PRINT" YOU HAVE TO GUESS THE EXECUTION-" 
PRINT"ER*S WORD IN JUST"G"GUESSES" 
GOSUB 480:GOSUBR 480:GOSUBH 480:CLS 
FOR J=1 TO @:Y=Y+l 
GOSUB 400 
IF H=N THEN 340 
PRINT: FRINT: PRINT @+1-J"CHANCES LEFT....":O0%=INKEYS 
PRINT: PRINT"ENTER YOUR NEXT GUESS? "; 
255 ELSE PRINT C#: 
FOR I=1 TO 100:NEXT 
F=ASC (C$) 
O% (F-64) =CHRS (F) 
FOR G=1 TON 
IF D(G)=F THEN D(G)=0:J=J-1 
NEXT G:NEXT J 
GOSUB 480 
GOSUB 400 
PRINT:PRINT:PRINT"SO SORRY,BUT YOU GOTTA GO NOW!' 
sSQUND 1,8 
PRINT" THE EXECUTIONER’S WORD WAS ":Ag:L¢% 
:GOSUB 480:END 
PRINTS PRINT" WHEW! YOU* VE STAVED OFF" 
PRINT"EXECUTION FOR ANOTHER DAY." 
FRINT'YOU GOT IT IN"Y-1 "GUESSES" 
PRINT: PRINT"THE EXECUTIONER’S WORD WAS":FRINTAS$ 
FORI=1 TO 20:FOR K=1 TO 200:NEXT:COLOR,1: 
FOR K=1 TO 200:NEXT 
COLOR, O: NEXT 
FRINT"DO YOU WANT ANOTHER GO?" 
GOSUBR 495:IF AS<>"N" AND AS<>"Y" 
IF AS="N"THEN END ELSE RUN 
H=O:PRINT CHR (28) 
FOR V=1 TO 26:FRINTOV+2,0%(V) NEXT VePRINT: PRINT 
FOR E=i TO N 
IF B(E)=D(E) THEN PRINT"-"s 


THEN 385 


430 IF B(E)<>D(E) THEN PRINT CHR (B(E))3sH=H+1 
440 NEXT E 
450 PRINT:PRINT: IF He oN THEN PRINT"YOQU HAVE"H 
ip aeane LETTERS CORRECT 
470 RETURN 
430 FOR G=1 TO SOO:NEXT O 
490 RETURN 
495 A$=INKEY#: AS=INKEYS: RETURN 
500 DATA"MERIDIAN", "MERIT", "MERMAID", "MERRIMENT " 
5:10 DATA" QVERSEER", "OXIDANT", "OXYGEN", "FALFABLE” 
. "UNORTHODOX" 
S20 DATA"PANDEMONIUM", "FANEGYRIC", “PARADOXICAL” 
."FHEASANT", "FLY" 
S30 DATA"RUMPUS", "RUMMAGE", "SACRAMENT", "SABRE" 
, "SCHEMATIC", "TAR" 
540 DATA"SEDIMENT", "SEXAGENARIAN", “TEMPERATE” 
, "TELESCOPE", "CAR” 
S50 DATA"GYFSY", "RHAPSODY", "SCALENE", "SATELLITE" 
, "MARSHMALLOW" 
S60 DATA"HELICOPTER", "CASSEROLE", "ILLUSTRATE" 
» "SYMPATHY", "MOUSE" 


» "DUPLICATE", "CAT" 
580 DATA" INSATIABLE", "SILHQUETTE”, "HONDAGE " 
, “BONUS”, "DECIMAL" 
S90) DATA" DEAFEN", "THEORY", "THISTLE", "SABOTAGE" 
» "COURTESY", "TRY" 
600 DATA" DEBUTANTE", "DECADENCE", "KETCHUP" 
, "KINDERGARTEN" , "METRE" 
610 DATA" SUPERCALIFRAGILISTICEXFIALIDOCIOUS", 
"COMPUTER" , "HOUSE" 
620 DATA” OLYMPIC", "OMNIBUS", "OMNIPOTENT" 
» "MAGNANIMOUS", "ZEALOUS" 
630 DATA" ZOOLOGY", "ZILLION", "XEROX", "XYLOPHONE" 
, "QUINCE", "YUMMY" 
640 "FATIGUE", "FALSETTO", "EQUIVALENT", "ENZYME" 
» "DISRUPT", "HEART" 
4650 DATA" QUEASY", “IMBECILE", “BIENNIAL" 
"ACCOMPLISHMENT", "TONGUE" 
660 DATA" KUNGFU", "JAVELIN", "DEMANDMANT " 
,"OOMIAK", "JERKIN", "QUAD" 
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670 DATA" ZEBRA”, "TOMAHAWK", "MARZIFAN" 
, "PULVERIZE", "FACSIMILE" 


6BO DATA"“HYPOCHONDRIAC", "RECRUIT" 
, "CONJURE", "STEWARDESS", "DEBUT" 
690 DATA"LIZARD", "SCHOLASTIC", "THEOLOGY" 
, "GEQMETRY", "GIBBERISH" 
700 DATA"VEGETABLE", "WINTERGREEN", "YELLOW" 
, "YEARLING", “INFINITY” 
710 DATA"PRAIRIE", "SCHEDULED", “RHEUMATISM" 
, "MOSQUITO", "DOG", "TAB" 
720 DATA"BOX", "JET", "QUIP", "QUIZ", "QUACK" 
P "AXE" 5 "BIB", "PIB. “WET” 
730 DATA” YACHT", "VERSUS", "PRECIS", "VILIFY” 
, "WOMANHOOD", "woo" 
740 DATA"YOU", “WOODWIND", "ACACIA" 
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| | CUBIST 


This is a two-dimensional version of the colored cube puzzle which 
swept the world from Hungary. 
The “cube” starts off looking like this: 


L122 
1122 
3344 
3344 


After some manipulation by the computer, it will look something 
like this: 


WW es 
m= W RO 
Ww = 
m NO ND 


4244 
Your job is to get it back into its original state in as few moves as 
possible. The numbers on the cube rotate in groups of four, spinning 
in a clockwise direction. This means that 


1 2 
3 4 
when rotated will look like this: 
3 1 
42 
You enter a number in order to 


rotate the elements of the cube. 


The key to move is as follows: 


23 4 
6 7 8 
10 11 12 
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This is the listing for CUBIST: 


20 

40) 

wt) 

6) 

70 

Ste) 

OC) 

100 
110 
120 
130 
140 
130 
1460 
170 
180 
190 
200 
210 
220 
mat) 
240 
20) 
260) 
270) 
“80 
=F) 
miele) 
210 
320 
ak ©) 
S40 
ta] @) 
OC) 
370 
380 
FO 
400) 
410 
A2O 
430 


DIM A(4),H(14) 
CLS 
H=1:F=0 
FOR D=1 TO 4 
C=0 

IF BH=1 THEN C=1 

IF B=3 THEN C=2 

IF B=9 THEN C=3 

IF B=11 THEN C=4 

BR(B)=C 

B(B+1)=C 

BA CE+4) =C 

B(B+5) =C 

C=O 

IF B=i THEN C=2 

IF B=3 THEN C=6 

IF B=9 THEN C=2 

B=B+C 

NEXT D 

GOSUB 410 

FRINT: PRINT 

IF Feiii THEN FRINTD224, "TWISTING..." 
F=F+1 

FOR F=l TQ S0O!:NEXT F 

IF Feil THEN X=RND(12) 

IF F210 THEN GOSUB S90 

IF X22 OR X=5 OR X=9 OR X12 THEN 270 
ACL) =H(X) 

AC?) =BHCX+4) 

ACS) =H (X+3) 

AC4)=H¢(X-1) 

BCX) =AC4) 

B(X+4)=AC(1) 

B(X+3) =A?) 

H(X-1)=A(3) 

GOSUB 410 

F=F +1 

GOTO 270 

PRINT CHRS (28) 

FRINT: PFRINT 

FOR B=1 TO 16 


440 PRINT BCB): 

450 IF B/4=INT(B/4) THEN FRINT 

440 NEXT & 

A470 PRINT: PRINT 

480 IF F<i0 THEN FRINTSO," TWIST NUMBER"F 

490 IF F210 THEN FRINT2O," YOUR CUBIC NUMBER"F-10 

SOO IF Feit THEN RETURN 

310 FP=Q 

S20 IF ¢i)=1 AND B(2)=1 AND B(3)=2 AND B(4)=2 
THEN F=F+1 

S30 IF B(S5)=1 AND B(4)=1 AND B(7)=2 AND B(Q)=2 
THEN P=F+1 

S40 IF B(9)=3 AND B(10)=3 AND B(11)=4 AND H(12)=4 
THEN F=F+i 

SSO IF B(iz)=3 AND H(14)=3 AND B(15)=4 AND B15) =4 
THEN F=P+1 

S60 IF Pe>4 THEN RETURN 

570 PRINTD284, "YOU SOLVED IT IN JUST"F-10"TWISTS" 

Sao PRINT "WELL DONE, CUBIST! ":END 

590 Z$=INKEY#: Z$=INKEYS 

S00 PRINT@S20, "ENTER YOUR CHOICE (1 - 9)" 

610 Le=INKEY$: X=VAL (LS) 

420 IF X¢1 OR X29 THEN 410 

630 SOUND 31,1:I1F X<4 THEN X=X+1:RETURN 

640 IF X¢7 THEN X2X+2:RETURN 

650 X=X+Z: RETURN 

660 RETURN 


237 


238 


| | MUMBLE MARBLE 


Our next brain game is a computer version of the game you may 
know as “solitaire,” in which you have to move marbles around a 
board. At the start of the game only the center hole is empty. You can 
jump over marbles into empty holes, and you remove the marble so 
jumped over. The idea of the game is to end up with just one marble 
in the center hole. ga 





Many stories have been told about the origin of this game. The 
most interesting of these tales is the one that says the idea of the 
game was worked out by a prisoner in solitary confinement in the 
Bastille, who devised it as a way to relieve the monotony of his im- 
prisonment. Whether that story is true or not, there is no doubt that 
the game can become quite addictive, as you try to devise a foolproof 


way to solve it. 
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Here’s what the MUMBLE MARBLE display looks like at the 
itart of the game: 


1234567 
00 0 1 
00 0 2 

0000000 3 

000000 4 

0000000 5 
00 0 6 
00 0 7 


A few moves later it could look like this: 


1234567 
00 0 1 
0 # 0 2 

0*00000 3 

0o0* 0000 4&4 

0O000 000 5 
#00 6 
* 00 T 


Here’s the listing, so you can set out to solve the problem your- 
self: 


REM MUMBELE MARBLE 

GOSUB 400 

GOSUB 250 

REM ACCEFT MOVE 

PRINTD416, "WHICH MARBLE DO YOU WANT TO MOVE"; 
FRINTD448,""s 2s INFUT A 

IF A=99 THEN GOTO 240 

IF At1i1 OR A*77 THEN GOTO 60 
IF ACA) S379 THEN GOTO 40 

») PRINTD448,A"TO WHERE": 

») INFUT & 

» IF Beil OR B77 THEN GOTO 100 
) IF ACB) <2E THEN GOTO 10900 

) AC CATE) /2) =E:A(A) SE2A(B) =79 


150 MOVE=MOVE+1 
160 COUNT=0 
170 FOR Fell TO 73 
180 ITF ACF) =79 THEN COUNT=COUNT+1 
190 NEXT F 
200 GOSUH 250 
210 PRINT “THERE ARE" SCOUNTs "MARBLES “: 
FRINT "ON THE BOARD" 
220 IF COUNTS =1 THEN GOTO 40 
230 ITFAC44)=79THENPRINT" YOU DID IT, IN 
JUST" sMOVEs "MOVES! "SEND 
240 PRINT “THE GAME IS OVER AND YOU" VE FGILED'": END 
20 REM FRINT OUT 
260 PRINTD449,L4:PRINTCHRS (28) : 
2/Q FPRINT "ENTER SIDE CO-ORDINATE FIRST" 
=80 PRINT TAB(S) s "ENTER 99 TO CONCEDE" 
290 FRINT " 123843 6 7" 
200 PRINT TAHCS) 
210 FOR D=11 TO 75 
ee T=10Ox CINT(D/10) >) 
230 TF D-T=9 THEN D=D4+2:FRINT T/i10:FRINT 
TAR(S)3:GOTO 350 
S40 PRINT CHR®(A(D))3" “3 
390 NEXT DsFPRINT " , fie 
270 PRINT "MOVES SO FAR: "3s MOVE 
O90 RETURN 
400 REM INITIALISE 
410 CLS-DIM A(S7) 
430 Es42:L6=" 
440 FOR D=11 TO 75 
450 T=10x (INT (D/10) ) 
460 IF D-T=8 THEN D=D+3 
470 READ ACD) 
480 NEXT D 
490 MOVE=0 
YOO RETURN 
IoO DATA S32, 32— FF TVG 79g Seg OE 
S40 DATA 32,324,795 79,795 Sey SE 
JI] DATA 79,79,79; 79479479479 
SOO DATA 79,79 _ 79 eg 4b 794 TPG TP 
370 DATA 79,79 _ 79a FD 5 79g 79g TF 
SBO DATA 32, 32479, 79g 79g Sey BS 
S70 DATA 32, 32,79.,79,79 
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| | CYCLOTRON 


In CYCLOTRON, you fire atoms into the machine from the top, by 
specifying a number, and you have to try and locate particles of anti- 
matter hidden within the machine from the behavior of the atom. 
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If the atom hits a particle of antimatter it will either be absorbed, 
or de‘lected to the right or left. An atom may be affected by more 
than one particle of antimatter, which makes the resolution of the 
problem even more difficult. 

There are always three particles of antimatter in the machine, 
although they could well all be in the same number cyclotron. You 
have an extremely limited number of goes in order to locate the anti- 
matter. At each go, you can either enter the number where you want 
to enter an atom, or be reckless and enter 8, which gives you a chance 
to guess the location of the antimatter particles. 
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ind here’s the listing for your very own cyclotron: 


SEM CYCLOTRON 

OLS 

N=O0:HS:9:DIM BC7) ,@¢4) ,WCS) 

REM FLACE ANTIMATTER 

FOR A=1 TO 3 

| RCA) =RND (7) 

) NEXT A 

» FOR H=6 TO 1 STEP ~-1 

» CLS 

) PRINT!IFRINT:s PRINT" YOU HAVE" H" SECONDS" 
> PRINT"ENTER CYCLOTRON NUMBER, " 

2 FRINT’OR @ IF YOU THINE YOU KNOW" 

” PRINT"WHERE THE ANTIMATTER LIES” 

2 INPUT 

Oo JF C=8 THEN S20 

O GOSUB 450 

QO D=1l 

O IF B«(D)=C THEN G50 

O IF Des THEN D=D+1:GOTO 220 

QO GOSUB Sac 

MO FRINT’ THE ATOM EMERGED FROM"C:SOUND 31,5 
© FOR 2Z=1 TO 10O00:NEXT Z 

‘oO NEXT H 

JO PRINT: PRINT: PRINT . 

70 FRINT"SORRY, TIME IS UF" 

20 PRINT: PRINT"THE ANTIMATTER WAS IN":SQUND 6,7: 


LO FOR A=1 To 3 SOUND 4,8 


20 PRINT H(A); 

70 NEXT A 

40 END 

20 KEM ANTIMATTER ACTS 

60 IF RND(10)29 THEN 420 

7O IF C=1 THEN C=2:GOTO 210 

80 IF C7 THEN C=6:GO0TO 210 

9QO FekND (2) -1 

O00 C=C+F 

110 GOTO 210 

#0 REM ANTIMATTER ABSORES ATOM 

M20 PRINT" THE ATOM HAS BEEN ABSORBED":SOUND Si, 1: 
SOUND 30,1 
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“4c 
450) 
440 
470) 
480 
490 
wOO 
10 
walt) 
hot) 
w4O 
SG) 
JOC) 
Ae) 
JOO) 
wIO 
400 
S10 
620 
6.20 
640 
30 
660 
570 
BOQ 
&9() 
FOO 
710 
729 
7SQ 
740 
Fao) 
760 
77?) 


780 


GOTO 2460 
FRINTSFPRINT:PRINT TAB (S420) 30 
FOR 41 TO S 


PRINT TAER(6)3"- - - - - - - ‘ 
NEXT Z 

RETURN 

PRINT TAH (3+2kC) $C 

RETURN 

REM LOCATION ATTEMPT 


PRINT"WHERE DO YOU THINK" 

PRINT" THE ANTIMATTER LIES?" 

INFUT O¢(1),Q@(2) ,Q(3) 

FOR T=1 TO S:WC(T)=B(T) NEXT T 

SR=O 

FOR X=1 TO 3:FOR Y=1 TO 3 

IF Q¢X) =BCY) THEN SR=SR+1:B8¢°Y) =0:0(6X)=0 

NEXT Y,X 

GOTO 650 

FOR FHl TO 3 

BiFP)=WC(P) 

NEXT F 

If SRS THEN 700 

If SR?O THEN FRINT"YOU LOCATED"SR"CORRECTLY" 

IF SR=O THEN FRINT" YOU ARE COMPLETELY WRONG!" 

FOR T=1 TO 3: 8B(T)=W(T) NEXT T 

GITO 2460 

FININT"WELL DONE. YOU LOCATED THE" 

RFIXINT"ANTIMATTER WITH"H" SECONDS" 

FRINT ,"TO SFARE":GOSUE 770 

IF 6-HHS THEN HS=4-H 

FRINTIFRINT"YOUR BEST TIME SO FAR IS"HS 

FOR Z=1 TO 1000:NEXT Z 

GOTO 90 

SOUND 21,4: SOUND 146,2:SOUND 146,1:SOUND 18,4: 
SOUND 16,4 

>SOUND 0,1:SOUND 20,4:SOUND 21,4: RETURN 


245 


246 


| | FLIPPER 


This intriguing game can provide you with a considerable degree of 


mental stretching. When you run the game, you'll see a mix of X’s 
and *’s on a three by three grid. You have to end up with an X in the 
middle, and eight *’s surrounding it. 
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You enter the number of the place you want to hit with your 
flipper. Flipping a corner piece causes those adjoining it to change 
into their opposites (that is an X becomes an *, and an * becomes an 
X). Hitting the middle piece on a side with your flipper causes the two 
on either side of it to change, and hitting the middle piece changes the 
middle pieces on each of the sides. 

The piece you hit always changes in each case. 

Here’s the listing so you can do it yourself: 


10 REM FLIFPER 

2QO DIM A(10),F(4):CLS 

30 M=-1:0=42: X=88:F=0 

JO FOR C=1 TO 9 

69 ACC) =0) 

7QO IF INTCRND (100) /100+.5)=0 THEN A(C)=X 
80 NEXT C 

70 GOSUB 270 


Loo 


M=M+1 
247 


4540 
470 
440) 
tC) 
w1lO 
a) 
ae) 
340) 
248 


N=0 

FOR C=i1 TO 9 

IF ACl)=X THEN N=N+i1 

NEXT C 

IF N=1 AND A(S)=X THEN 350 

IF M20 THEN FRINT:FRINT" THAT WAS MOVE"M 
FRINT:FRINT"NUMBER OF X IS"N" 
PRINTZFRINT"WHICH ONE DO YOU WANT TO FLIP?" 
IF INKEY$*<2"" THEN 200 

A$S=INKEYS 

N=VAL (At) s IF Nel OR NeG THEN 210 

IF AC(VAL (AS) )=B8B THEN 210 

P=N:SOUND 21,1 

GOSUB 380 

(0TO 90 

END 

FRINT CHR (28) 

IF Pe eo THEN FRINT' YOU FLIFFED"F ELSE FRINT 
PRINTIPRINT'1 2 3", CHRS(A(1))3" "SCHRS(A(Z))—" " 


5 FRINT CHRS (ACS) ) 


PRINT 
FRINT'4 5 6",CHRE(A(4))¢" "SCHRS(ACS))3 
"UCHR (ACH) ) 
PRINT 
FRINT"7 8 9",CHRS(A(7))3" "3SCHRS(A(E) 3 
" Hs CHRE (ACD) ) 
RETURN 
PRINT: PRINT: PRINT"YOU SOLVED IT IN JUST"M" MOVES" 
END 
IF A(N)=X THEN RETURN 
IF N=i THEN F(1)=2:F (2) =4:F (3) =5:F (4) =10 
IF N=2@ THEN F(1)=1:F (2) =3:F (3) =10:F (4) =10 
IF N=S THEN F(1)=2:F (2) =5:F (3) =6:F (4) =10 
IF N=4 THEN F(1)=1:F (2) =7:F (3) =10:F (4) =10 
IF N=S THEN F(1)=2:F (2) =4:F (3) =8:F (4) =6 
IF N=6& THEN F(1)=3:F (2) =9:F (3) =10:F (4) =10 
IF N=7 THEN F(1)=4:F (2) =S:F (3) =@:F (4) =10 
IF N=8 THEN F(1)=7:F (2) =9:F (3) =10:F (4) =10 
IF N=9 THEN F (1) S8:F (2) =5sF (3) =6:F (4) =10 
FOR G=1 TO 4:F=0 
IF ACF(G))=X THEN F=1 
IF F=1 THEN A(F(G))=G 
IF F=O AND ACF (G))=@ THEN A(F(G))=X 
NEXT G 
ACN) =X RETURN 


| | SWITCHEROO 


In SWITCHEROO, you are presented with the digits 1 to 9 arranged 
in a random order, and you have to get them into 123456789 order, 
in as few moves as possible. 
You enter your moves as numbers, and the ae performs a 
“switcheroo” using the number you’ve entered. 





10 REM SWITCHEROO 
20 CLS:B=B+l 

30 PRINT:PRINT*PLEASE STAND BY..." 
40 GOSUB 100 

50 GOSUB 220 

b0 IF A$="123456789" THEN 390 
70 H=M# 

80 GOTO 50 

90 END 

100 M=1:X=0 

110 Age" 

120 FOR T=1 10 9 

130 L=RND(9) +48 

140 O=1 

150 IF MIDS(A$,Q,1)=CHRS(L) THEN $30 

160 IF Q<T THEN Q=+1:60TO 150 

170 AS=AS+CHREIL) 

180 PRINT AS 

190 PRINT:SOUND 1,1 

200 NEXT T 

210 RETURN 

220 REM PRINT OUT 

230 IF M>1 THEN 260 ELSE CLS 

240 PRINT: PRINT: PRINT 

250 PRINT "MOVE NUNBER®A 

260 PRINT9107, 

270 PRINT2256,A$:SOUND 31, ! 

280 PRINTSPRINT*WHICH NUMBER TO SWITCHEROD?* 
290 IF INKEV$ <)*" THEN 290 

300 CS=INKEY$ 

310 RVALICS) 


249 


250 


320 IF R<1 OR RYB THEN 300 
330 BS="" 

340 FOR T=9 TO R STEP -1 
350 BS=BS+MID$ (AS, T, 1) 

360 NEXT T , 
370 AS=LEFTS(AS,R-1) +8 

380 RETURN 

390 PRINT: PRINT: PRINT | 
400 PRINT As 

410 PRINT:PRINT: PRINT 

420 PRINT'YOU DID IT, CHAMP!® 

430 PRINT:PRINT*AND IT TOOK JUST"K*MOVES...° 

435 IF B=1 THEN HER 

440 IF MCH THEN HEN 

450 PRINT "LOW SCORE-"H 
440 FOR I=1 TO 3000:NEX 
470 60T0 20 
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| |\CREATING GAMES 


You may well find, after you’ve been programming for some time, 
that although you've got many of the skills you need to write games of 
your own, you're a little short on ideas. If that’s the case, you should 
find this section of the book of interest to you. I’m going to outline a 
number of games which seem to me to be ideal for conversion to 
computer games. : 
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verting a well-known game, such as checkers, when your program will 
be expected to coincide in every respect with the non-computer ver- 
sion, you do not need to ensure that your computer developments of 
these ideas slavishly follows the outlines here. You'll probably find 
that, after a certain degree of development, the game takes off on its 
own, and may well end up in due course bearing little resemblance to 


its “parent.” This is all to the good. 253 


_|GAMES TO ADAPT 


SHUFFLEBOARD: Players slide flat, circular pieces along a board 
toward a triangular “target” which contains painted circles with num- 
bers on them. A piece ending up entirely within the numbered circle 
gives the player the score of that number. There are many possible 
variations of this, including darts-like target games. Once you get a 
shuffleboard program running, you may well find that only cosmetic 
changes are needed to convert it into a ten-pin bowling game. 
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MU-TORERE: This game, which originated among the Maoris in 
New Zealand, is played on a board shaped like an eight-pointed star, 
with each point of the star joined to a circle in the middle. This circle 
is called the putahi. The players start with four pieces each, which are 
placed on the outside points, with all of one player’s pieces occupying 
points next to each other. The aim of the game, as 1n the last two 
we've discussed, is to make it impossible for a player to move. You 


can move from one point to an adjacent empty point, or from the 
putahi to any vacant point. The third possible move is from a point to 
the putahi, but this move can only be made if at least one of the 
points immediately adjacent to the one from which you intend to 
move is occupied by an opponent’s piece. 
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HORSESHOE: Starting with a board like this, with one player's 
pieces at the positions marked A, and one at those marked B, the 
players take it in turns to move along a line to a vacant spot: 


A A 
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The game ends when a player discovers he or she (or it) cannot move. 


Despite its simplicity, this is an interesting game, as you'll discover ' 
when you play it. 


DAMOCLES: This game is like HORSESHOE, but uses a larger 


board, and three pieces per player. The aim of the game is the same 
as HORSESHOE, and uses this board: 


NZI 

P< 
BINGO: This game is usually played with cards marked with num- 
bers, which are crossed off as numbers are drawn at random from a 
pool, the winner being the player who first crosses off five in a row on 
his card, in any direction. It can be greatly simplified for computer 
use, with the computer generating two “cards” at random, using num- 
bers from 0 to 99, and printing them on a five by five grid. The 
computer can then choose numbers at random from 0 to 99, and do 
the crossings off, and look for possible wins. The program can be 
made more interesting to look at by, instead of just generating a ran- 
dom number, including two “dials” with spinning arrows. The first 
dial, the “tens,” is marked from zero to nine, and this is spun first. 


The second dial is marked the same as the first one, except that it 
represents the “ones.” 
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Dice Games 


As I said in the notes regarding the dice games in the dice section 
of this book, you should find dice games relatively easy to program on 
your computer, especially if the computer is not expected to exhibit 
too much intelligence when playing. There are a number of dice 
games which you may wish to try and adapt for computer play, in- 
cluding: 


DROP DEAD: You need five dice for this. The dice are thrown by 
the first player, and any which show two or five are removed. The 
total of the rest is written down, and the dice which fell with a two or 
a five are thrown again. After this throw, the dice landing two and five 
are removed, and the total of the remaining dice is added to the total 
from the first throw. This process continues until there are no dice 
left, at which point that particular player’s move ends. It is then 
player two’s go, and the same procedure is followed. The winner is 
the player with the biggest total after both have had their throws. You 
can make the game the best of, say, three rounds, or limit the total 
number of throws any player can have per go, regardless of how 
many dice he or she has left. Ye RS 
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MARTINETTI: You need three dice for this, and a score sheet 
marked with a row of boxes marked from 1 to 12, and two tokens, one 
each for you and the computer. You are aiming to traverse the num- 
bers in order, before your opponent manages to do so. Each player 
takes it in turn to throw the dice. If the throw contains a one, the 
player’s token can be placed in the one square. If the first throw also 
contained a two, the token could be moved into the two. After box 
one, players can either take the pip shown on an individual die for a 
move, or can add together the pips showing to get a desired number. 
A variation of this game (often called EVEREST) is to “climb down” 
through the numbers, after 1 through 12 has been achieved. The win- 
ner of EVEREST is the first player getting back to base camp on one. 


INDIAN DICE: This game is similar to POKER DICE and 1s played 
with five dice. The aim is simply to get the best possible “poker 
hands.” There is no provision for getting additional “cards” in one 
deal. You throw the five dice at once, and that is your hand. The 
ranking of the hands is as follows (with six highest and ones wild): 


° five of a kind 


e four of a kind 
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¢ full house (three of a kind plus a pair) 
* two pairs a ONY y 
* one pair Ve 


¢ highest die 
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BIDOU: This game is also similar to POKER DICE, however, you 
aim to get rid of all your chips, rather than win them. The winner of 
the game is, paradoxically, the person who has lost the most rounds. 
You need three dice for this game, and a supply of chips which are 
distributed equally between the two players. A bet is made, and 
matched, before the players take it 1n turns to throw the three dice. 
The throws are ranked as follows, with “winning throws” coming first: 


211; 221; 421; 666 555; 444; 
333; 222; 111; 336 335; 33 4; 
332; 331; 1106; 115; 114 #=212:1~3; 
321; 432; 543; 654 


If the combination thrown is not in the list, the pips are added, with 
the highest total winning. 


BARBOOTH: Also known as BARBUDI, this game is played with 
two dice, and features winning and losing throws. It is suggested you 
start with a bank of 30 chips, and give both players a starting stake of 
15 chips each, charging two chips per player per round. The players 
take it in turns to throw the dice. Winning throws are 3 3; 5 5; 6 5; 
and 6 6. Losing throws are 1 1;2 2;2 1 and 4 4. If the players both 
get winning throws, the one closest to the start of the list wins (that is, 
3 3 1s better than 6 6). If both throw the same winning throw, the 
bank gets the money. If one player throws a combination which is not 
a winning one or a losing one, and the other throws a losing throw, the 
loser’s chips go into the bank, and the other player retains his or her 
chips. 

If one player throws a winning throw, and the other a non-rank- 
ing combination, the winner gets his own chips back, as well as those 
bet by the loser. If, however, one player throws a winning combina- 
tion, and the other a losing combination, the bank contributes the 
same number of chips as have been bet in total. The game continues 
until either player, or the bank, runs out of chips. The player holding 
the maximum number of chips at this point wins. Note that this way 
of distributing the wins and losses is not the same as BARBOOTH 
when played as a ‘professional’ gambling game, but is a pay-off 
scheme which is relatively easy to computerize, and makes for an 
interesting game. 


FIVE THOUSAND: There are no prizes for guessing that the first 
player to score over 5000 points in this game is the winner. Played 
with as many players as you like, all you'll need in the way of game 
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>quipment is five six-sided dice. Each player takes it in turn to throw 
he five dice, and scoring is carried out in the following way: 

¢ A 5 is worth 100. 

¢ A 2 is worth 50. 

¢ Three 5’s thrown in one go are worth 1000. 

¢ Three 2’s thrown in a go score 500. 


¢ Three of a kind (apart from 2’s and 5’s) are worth 100 times 
their value (that is, three 1’s are worth 100 points, and three 6’s 
are worth 600). 


¢ If the sequence 1, 2, 3, 4, and 5 is thrown in a single go, this 
scores 1500. 


¢ 2, 3, 4, 5, and 6 in one throw are worth 2000 points. 


Note that 4’s and 6’s do not score in this game, except as part of a 
sequence. Once you've thrown, you can—if you like—throw the non- 
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scoring dice again. However, if the next throw gains no score, the turn 
ends, and the overall score for the throw is zero. So long as a scoring 
throw has been made, any dice “left over” can be thrown. 

The game rewards the slow and careful player with a reasonable 


score, but gives him or her no chance against a player who decides to 
take a chance and try to get a massive score in a single throw. 


Card Games 


Once you've worked out a routine to get the computer to hold, 
shuffle, and deal the cards you have the raw bones of a host of 





games. Any book of card games will give you more ideas than you can 
possibly cope with. Here are a few to start you off: 


TRENTE AND QUARANTE: This game, which originated in 17th 
century Europe, is also known as ROUGE ET NOIR. Six decks of 
cards are used in the casino version, but it works well with a single 
deck. The cards are dealt into two rows, with the total of each row 
being examined after each row has had an additional card. Face cards 
Gack, queen, king) count as ten, with all other cards (including the 
ace) counting as their face value. The moment the total of a row 
equals or exceeds 31, no more cards are added to that row. However, 
the dealer keeps adding to the other row until it, too, equals or ex- 
ceeds 31. The first row is called “black,” regardless of the suits of the 
cards involved, and the second row is “red.” 

You can bet that, at the end, the red row or the black row total 
will be closer to 31. You can also bet that the color of the first card to 
be dealt will match the color name of the winning row. All bets are 
made against the bank, and winners receive their bet back, plus that 
amount again (odds of one to one). If both rows equal 31, the bank 
takes half the stake and returns the rest to the player. 


261 


262 


CARD CRAPS: This game was devised to get around laws passed by 
some US States which outlawed craps played with dice. You use a 
special deck of 48 cards, made up from the aces, 2’s, 3’s, 4's, 5’s, and 
6’s, from two decks of cards. The game follows the standard rules of 
craps (which are similar to those used in the game SEVEN/ELEVEN 
in this book). 

In its simplified form, without the somewhat complex betting 
combinations, you play as follows: 


¢ A total of 2, 3 or 12 is “craps” and the dealer loses, passing the 
cards to the next player to deal. 


¢ A total of 7 or 11 ts a “natural” and the dealer wins. 


¢ Any other number (4, 5, 6, 8, 9, or 10) is the player’s “point” 
and he or she must continue dealing in pairs until the point is 
dealt again, at which point the dealer wins. However if a 7 is 
dealt before the point is obtained, the dealer loses. 


THREE CARD BRAG: This game was the forerunner of poker, and 
as its name suggests, it is played with hands of three, rather than five, 
cards. Here are the winning combinations, ranked from highest to 
lowest: 


“Pryle,” three of a kind 


“On a bike,” three in sequence from the same suit 


« “Run,” three cards in sequence 


“Flush,” three cards from the same suit 
“Pair,” two of a kind 
“High card” 


A normal deck is used, and aces rank high, except for ‘‘on a bike” and 
“run,” when 3, 2, ace beats ace, king, queen. You can vary the game 
by making it SEVEN CARD BRAG, in which the players split their 
seven cards into two three-card hands of their choice, or NINE CARD 
BRAG, when three hands are created. 


ACE-DEUCE-JACK: This is a simple game, heavily loaded in the 
dealer’s favor, in which players bet on the likelihood that the next 
card which appears will be an ace, a two (a “deuce”), or a jack. 


PUT AND TAKE: This gambling game uses an eight-sided top, 
which is spun. The game begins with all players having 10 chips, with 
30 in the pot. The players take it in turn to spin the top, and—obey- 
ing the instructions which come up on the top—put chips into the pot, 
or take them out. A player is out when he or she runs out of chips, 
and the game ends when the pot is empty. The instructions written on 
the sides of the top are: 


* PUT ONE 

¢ TAKE ONE 

¢ PUT THREE 

¢ TAKE THREE 


¢ PUT FOUR 

* TAKE FOUR 
¢ PUT ALL 

° TAKE ALL 


BOULE: This is a simplified form of roulette which appeared in the 
18th century. It is often found in European casinos. The wheel is 
divided into 18 segments, numbered from one to nine, twice. You can 
bet on the winning number, whether it will be a red or a black num- 
ber, even or odd, high or low. Except for the fives on the wheel, which 
are usually yellow, the reds and blacks alternate, so that there is, for 
example, a red six and a black six, a red nine and a black nine, and so 
on. A “high” number is above five, while “low” numbers are below it. 
If you bet successfully on a single number, you'll be paid at seven to 
one, with a one to one return on the “characteristic” of a number (such 
as its being “high” or “odd”). 
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Glossary 


Accumulator—part of the computer’s logic unit which stores the inter- 
mediate results of computations 
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Address—a number which refers to a location, generally in the com- 
puter’s memory, where information is stored 


Algorithm—the sequence of steps used to solve a problem 


Alphanumeric—generally used to describe a keyboard, and signifying 
that the keyboard has alphabetical and numerical keys. A numeric 
keypad, by contrast, only has keys for the digits one to nine 
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APL—this stands for Automatic Programming Language, a language 
developed by Iverson in the early 1960s, which supports a large set of 
operators and data structures. It uses a non-standard set of characters 


Application software—these are programs which are tailored for a 
specific task, such as word processing, or to handle mailing lists 


ASCII—stands for American Standard Code for Information Inter- 
change. This is an almost universal code for letters, numbers, and 
symbols 


Assembler—this is a program which converts another program writ- 
ten in an assembly language (which is a computer program in which a 
single instruction, such as ADD, converts into a single instruction for 
the computer) into the language the computer uses directly 


BASIC—stands for Beginner’s All-purpose Symbolic Instruction 
Code, the most common language used on microcomputers. It is easy 
to learn, with many of its statements being very close to English 


Batch—a group of transactions which are to be processed by a com- 
puter in one lot, without interruption by an operator 


Baud—a measure of the speed of transfer of data. It generally stands 
for the number of bits (discrete units of information) per second 


Benchmark—a test which is used to measure some aspect of the per- 
formance of a computer, which can be compared to the result of run- 
ning a similar test on a different computer 


Binary—a system of counting in which there are only two symbols, 0 
and 1 (as opposed to the ordinary decimal system, in which there are 
ten symbols, 0, 1, 2, 3, 4, 5, 6, 7, 8, and 9). Your computer “thinks” in 
binary 


Boolean Algebra—the algebra of decision-making and logic, devel- 
oped by English mathematician George Boole, and at the heart of 
your computer’s ability to make decisions 


Bootstrap—a program, run into the computer when it is first turned 
on, which puts the computer into the state where it can accept and 
understand other programs 


Buffer—a storage mechanism which holds input from a device such as 
keyboard, then releases it at a rate which the computer dictates 


Bug—an error in a program 


Bus—a group of electrical connections used to link a computer with 
an ancillary device, or another computer 


Byte—the smallest group of bits which makes up a computer word. 
Generally a computer is described as being “8 bit” or “16 bit,” 
meaning the word consists of a combination of eight or sixteen zeros 


or ones 


Central Processing Unit (CPU)—the heart of the computer, where 
arithmetic, logic, and control functions are carried out 


Character code—the number of ASCII (see ASCID which refers to a 
particular symbol, such as 32 for a space and 65 for the letter “A” 


COBOL—stands for Common Business Oriented Language, a stan- 
dard programming language, close to English, which is used primarily 
for business 

Compiler—a program which translates a program written in a high 
level (human-like) language into a machine language which the com- 
puter understands directly 


Concatenate—to add (adding two strings together is known as “‘con- 
catenation”) 

CP/M—stands for Control Program/Microcomputer, an almost uni- 
versal disk operating system developed and marketed by Digital Re- 
search, Pacific Grove, California 





Data—a general term for information processed by a computer 


Database—a collection of data organized to permit rapid access by 
computer 


Debug—to remove bugs (errors) from a program 


Disk—a magnetic storage medium (further described as a “hard disk,” 
“floppy disk,” or even “floppy”) used to store computer information 
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and programs. The disks resemble, to a limited extent, 45 rpm sound 
records, and are generally eight, five and a quarter, or three inches in 
diameter. Smaller “microdisks” are also available for some systems 


Documentation—the written instructions and explanations which ac- 
company a program 


DOS—stands for Disk Operating System (and generally pronounced 
“doss”), the versatile program which allows a computer to control a 
disk system 


Dot-matrix printer—a printer which forms the letters and symbols by 
a collection of dots, usually on an eight by eight, or seven by five, grid 


Double-density—adjective used to describe disks when recorded 
using a special technique which, as the name suggests, doubles the 
amount of storage the disk can provide 


Dynamic memory—computer memory which requires constant re- 
charging to retain its contents 


EPROM-—stands for Erasable Programmable Read Only Memory, a 
device which contains computer information in a semi-permanent 
form, demanding sustained exposure to ultra-violet light to erase its 
contents 


Error messages—information from the computer to the user, some- 
times consisting only of numbers or a few letters, but generally of a 
phrase (such as “Out of memory”) which points out a programming or 
operational error which has caused the computer to halt program ex- 
ecutions 


Field—A collection of characters which form a distinct group, such as 
an identifying code, a name or a date; a field is generally part of a 
record 


File—A group of related records which are processed together, such 
as an inventory file or a student file 


Firmware—The solid components of a computer system are often 
called the “hardware,” the programs, in machine-readable form on 


disk or cassette, are called the “software,” and programs which are 
hard-wired into a circuit are called “firmware.” Firmware can be al- 
tered, to a limited extent, by software in some circumstances 


Flag—this is an indicator within a program, with the “state of the 
flag” (i.e., the value it holds) giving information regarding a particular 
condition 


Floppy disk—-see “disk” 


Flowchart—a written layout of program structure and flow, using 
various shapes, such as a rectangle with sloping sides for a computer 
action, and a diamond for a computer decision. A flowchart is gener- 
ally written before any lines of program are entered into the computer 


FORTRAN—a high level computer language, generally used for sci- 
entific work (from FORmula TRANslation) 


Gate—a computer “component” which makes decisions, allowing the 
circuit to flow in one direction or another, depending on the conditions 
to be satisfied 


GIGO—acronym for “Garbage In Garbage Out,” suggesting that if 
rubbish or wrong data is fed into a computer, the result of its process- 
ing of such data (the output) must also be rubbish 





Global—a set of conditions which affects the entire program is called 
“global,” as opposed to “local” 


Hard copy—1information dumped to paper by a printer 


Hardware—the solid parts of the computer (see “software” and “firm- 
ware’) 


Hexadecimal—a counting system much beloved by machine code 
programmers because it is closely related to the number storage meth- 
ods used by computers, based on the number 16 (as opposed to our 
“ordinary” number system which is based on 10) 


Hex pad—a keyboard, somewhat like a calculator, which is used for 
direct entry of hexadecimal numbers 


High-level languages—programming languages which are close to En- 
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glish. Low-level languages are closer to those which the computer un- 
derstands. Because high-level languages have to be compiled into a 
form which the computer can understand before they are processed, 
high-level languages run more slowly than do their low-level counter- 
parts 


Input—any information which is fed into a program during execution 


V/O—stands for Input/Output port, a device the computer uses to 
communicate with the outside world 


Instruction—an element of programming code, which tells the com- 
puter to carry out a specific task. An instruction in assembler lan- 
guage, for example, is ADD which (as you've probably guessed) tells 
the computer to carry out an addition 


Interpreter—converts the high-level (“human-understandable”) pro- 
gram into a form which the computer can understand 


Joystick—an analog device which feeds a signal into a computer 
which is related to the position which the joystick is occupying; gener- 
ally used in games programs 


Kilobyte—the unit of language measurement; one kilobyte (generally 
abbreviated as K) equals 1024 bits 


Line printer—a printer which prints a complete line of characters at 
one time 


Low-level language—a language which is close to that used within the 
computer (see “high-level language”) 


Machine language—the step below a low-level language; the lan- 
guage which the computer understands directly 


Mainframe—the term for “giant” computers such as the IBM 370. 
Computers are also classed as minicomputer and microcomputer (such 
as the computer you own) 


Memory—the device or devices used by a computer to hold informa- 
tion and programs being currently processed, and for the instruction 
set fixed within a computer which tells it how to carry out the de- 
mands of the program. There are basically two types of memory (see 
“RAM” and “ROM”) 


Microprocessor—the “chip” which lies at the heart of your computer. 
This does the “thinking” 


Modem—stands for MOdulator/DEModulator, and is a device which 
allows one computer to communicate with another via the telephone 


Monitor—(a) a dedicated television screen for use as a computer dis- 
play unit; contains no tuning apparatus; (b) the information within a 
computer which enables it to understand and execute program in- 
structions 


Motherboard—a unit, generally external, which has slots to allow ad- 
ditional “boards” (circuits) to be plugged into the computer to provide 
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facilities (such as high-resolution graphics, or “robot control’) which 
are not provided with the standard machine 


Mouse—a control unit, slightly smaller than a box of cigarettes, which 
is rolled over the desk, moving an on-screen cursor in parallel to se- 
lect options and make decisions within a program. “Mouses” work 
either by sensing the action of their wheels, or by reading a grid pat- 
tern on the surface upon which they are moved 


Network—a group of computers working in tandem 


Numeric pad—a device primarily for entering numeric information 
into a computer, similar to a calculator 


Octal—a numbering system based on eight (using the digits 0, 1, 2, 3, 
4, 5, 6, and 7) 


On-line—device which is under the direct control of the computer 


Operating system—this is the “big boss” program or series of pro- 
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grams within the computer which controls the computer’s operation, 
doing such things as calling up routines when they are needed and 
assigning priorities 

Output—any data produced by the computer while it is processing, 
whether this data is displayed on the screen or dumped to the printer, 
or is used internally 


Pascal—a_ high level language, developed in the late 1960s by 
Niklaus Wirth, which encourages disciplined, structured programming 


Port—an output or input “hole” in the computer, through which data 
is transferred 


Program—the series of instructions which the computer follows to 
carry out a predetermined task 


PILOT—a high-level language, generally used to develop computer 
programs for education 


RAM-—stands for “Random Access Memory,” and is the memory on 
board the computer which holds the current program. The contents of 
RAM can be changed, while the contents of ROM (Read Only Mem- 
ory) cannot be changed under software control 


Real-time—when a computer event is progressing in line with time in 
the “real world,” the event is said to be occurring in real time. An 
example would be a program which showed the development of a 
colony of bacteria which developed at the same rate that such a real 
colony would develop. Many games which require reactions in real 


time have been developed. Most “arcade action” programs occur in 
real time 


Refresh—The contents of dynamic memories (see “memory”) must 
receive periodic bursts of power in order for them to maintain their 
contents. The signal which “reminds” the memory of its contents is 
called the “refresh signal” 


Register—a location in computer memory which holds data 


Reset—a signal which returns the computer to the point it was in 
when first turned on 


ROM—see “RAM” 


RS-232—a standard serial interface (defined by the Electronic Indus- 
tries Association) which connects a modem and associated terminal 
equipment to a computer 


S-100 bus—this is a standard interface (see “RS-232”) made up of 


100 parallel common communication lines which are used to connect 
circuit boards within microcomputers 


SNOBOL—a high-level language, developed by Bell Laboratories, 
which uses pattern recognition and string manipulation 


Software—the program which the computer follows (see ‘‘firmware”) 


Stack—the end point of a series of events which are accessed on a last 
in, first out basis 


Subroutine—a block of code, or program, which is called up a number 
of times within another program 


Syntax—as in human languages, the syntax is the structure rules 
which govern the use of a computer language 


Systems software—sections of code which carry out administrative 
tasks, or assist with the writing of other programs, but which are not 
actually used to carry out the computer’s final task 


Thermal printer—a device which prints the output from the computer 
on heat-sensitive paper. Although thermal printers are quieter than 
other printers, the output ts not always easy to read, nor is the used 
paper easy to store 


Time-sharing—this term is used to refer to a large number of users, 
on independent terminals, making use of a single computer, which 
divides its time between the users in such a way that each a them 
appears to have the “full attention” of the computer Yt 
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Turnkey system—-a computer system (generally for business use) 
which is ready to run when delivered, needing only the “turn of a 
key” to get it working 


Volatile memory—a memory device which loses its contents when the 
power supply is cut off (see “memory,” “refresh,” “ROM,” and 
“R AM’’) 


Word processor—a dedicated computer (or a computer operating a 
word processing program) which gives access to an “intelligent type- 
writer” with a large range of correction and adjustment features 


|| REFERENCE 


VIDEO DISPLAY WORKSHEET (MODE 0) 


701FH (28703) 


7000H (28672) 


384 





71FFH (29183) 


710 (29152) 
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ASCII CODE TABLE 


ASCII 

CODE CHARACTER ASCII! CHARACTER 

32 (Space) 64 @ (at sign) 

33 [ (exclamation point) 65 A 

34 ** (quote) 66 B 

35 # (number or pound 67 Cc 

sign) 

36 $ (doloar) 68 D 

37 % (percent) 69 E 

38 & (ampersand) 70 F 

39 ’ (apostrophe) 71 G 

4D ( {open parenthesis) 72 H 

41 ) (close parenthesis} 73 I 

42 * (asterisk) 74 J 

43 + (plus) 75 K 

44 , (comma) 76 L 

45 — (minus) 77 M 

46 . (period) 78 Ni 

47 / (slant) 79 O 

48 0 8p P 

49 1 81 Q 

50 2 82 R 

51 3 83 S 

52 4 84 T. 

53 5 85 U 

54 6 86 V 

55 7 87 W 

56 8 88 x 

57 9 89 Y 

58 : (colon) 9p Zz 

59 ; (semicolon) 91 [ (open square 
bracket) 

60 < (less than) 92 \ (back slash) 

61 = (equals) 93 ] (close square 
bracket) 

62 > (greater than) 94 { (up arrow) 

63 ? (question mark) 95 ~~ (back arrow) 
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CHARACTER CODE 
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THE ULTIMATE VZ300 GAMES BOOK! 


Here’s a collection of more than 40 incredible games written just for you and 
your Dick Smith VZ300 Personal Colour Computer. 


In this book, you'll get all these, and more: 


ADVENTURE GAMES 


Battle with the forces of evil, rule as a duke, and search for hidden treasure in 
THE DUKE OF DRAGOMFEAR and STRONGHOLD OF THE DWARVEN 
LORDS 


SIMULATION GAMES 


Control the fate of an entire planet or become the boss of your own firm in 
MISTRESS OF XENPHOBIA and CHAIRMAN OF THE BOARD 


BRAIN GAMES 


Unlock the twisted cube in CUBIC or race to locate an atom within the 
CYCLOTRON 


ARTIFICIAL INTELLIGENCE 


Challenge your VZ300 to break your code or let it write you a whole book of 
poetry in ELECTRONIC BRAIN and AMANUENSIS 


BOARD GAMES 


Your VZ300 is a willing and clever opponent in classic board games including 
OTHELLO, CHECKERS, AWARI and GOMOKU 


SPACE GAMES 


Land your trusty VZ space probe on the moon or fight an intergalactic war with 
alien creatures in MOONLANDER and HYPERWAR 


PLUS MASTER THE SKILLS TO DEVELOP, MODIFY 
AND CREATE YOUR OWN VZ300 GAMES 


WARNING: 
This book may be habit-forming fun! 
X-7326 


